(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    128411,       2761]
NotebookOptionsPosition[    117835,       2530]
NotebookOutlinePosition[    118267,       2547]
CellTagsIndexPosition[    118224,       2544]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["2.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"56cfa182-a323-4d13-9c4b-85a15fd3312e"],
 " | Modified in: ",
 Cell[" 2.1.0", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"a3cdb02f-9669-41a7-b058-fc603ca43717"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"401ff492-0188-4f0f-aade-dd62156b3fac"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"d237572e-a2ed-4d17-b822-28376d45199f"]
}], "History",
 CellChangeTimes->{{3.787809681541444*^9, 3.78780968225896*^9}},
 CellID->1247902091,ExpressionUUID->"5383a4e6-71c5-4957-86b8-46b9e358b2ed"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"f74d96db-faf1-4f3e-bc30-2f55193b792b"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"af2c6c1f-bf75-4401-838c-54647851275e"],

Cell["MaXrd", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"37568129-e0c0-4c60-8a99-605b150a775d"],

Cell["MaXrd`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"754132cc-cd4a-47f0-9861-91443931a64c"],

Cell["MaXrd/tutorial/UsingRotationMaps", "Categorization",
 CellLabel->"URI",ExpressionUUID->"fcb47fbb-27fc-4605-818e-36c8b099bd8d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"66a4fee1-0899-49a6-a2c6-9c436423fa9c"],

Cell["XXXX", "Keywords",
 CellID->1251852827,ExpressionUUID->"7761f498-597d-4525-9285-25e0b148519a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"6ee577f2-1a25-4dae-bfe9-fd6d3a0bfe58"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"c1b6e11b-1407-4e93-9b90-dcb57f713166"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"62096907-5471-4854-be4d-d064224bc1c7"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"e4afcd12-e5b7-4f94-b87c-0a26ca2f81e5"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"4d2d193d-cbfb-4ba1-bf70-617588486a8c"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"be54ec02-8f13-462d-bccc-97e60fd59632"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"4393361b-52fb-493f-ae26-e402f152754f"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"2b727e0f-4e3a-4801-b6a2-01aef473abde"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"0cbbfe3d-df07-4a3b-9589-533c097be105"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"59fcd399-676c-47a5-b593-99efc33f7830"]
}, Closed]],

Cell[CellGroupData[{

Cell["Using the rotation options", "Title",
 CellChangeTimes->{{3.78211070637499*^9, 3.782110721639782*^9}},
 CellID->509267359,ExpressionUUID->"e6e539db-4569-44b4-8920-d41afb3bc5ac"],

Cell["\<\
Some of the tools that deal with creation and manipulation of crystal \
entities \[Dash] asymmetric units, unit cells, blocks, domains and structures \
\[Dash] allow rotation of these instances. These functions share a common \
options framework which will be elaborated on here.\
\>", "Text",
 CellChangeTimes->{{3.7821110517983093`*^9, 3.782111057713149*^9}, {
  3.782111156528818*^9, 3.782111173776012*^9}, {3.78211128078642*^9, 
  3.782111313645761*^9}, {3.782111442821754*^9, 3.782111531388608*^9}, {
  3.782111606408971*^9, 3.7821116640032473`*^9}},
 CellID->1534169418,ExpressionUUID->"617ed5b5-3742-4cfb-92d6-1cf0ea933092"],

Cell[BoxData[GridBox[{
   {"\"\<RotationAnchorReference\>\"", Cell[
    "describe the type of rotation anchors that will be used", "TableText",
     ExpressionUUID->"7c2ac08b-ab4b-4fff-ac83-f34cc7a0c948"]},
   {"\"\<RotationAnchorShift\>\"", Cell[
    "an optional translation of the anchor point(s)", "TableText",
     ExpressionUUID->"566d9852-2719-41bc-93d4-c91854bce4cf"]},
   {"\"\<RotationAxes\>\"", Cell[
    "define the three rotation axes to be used in 3D rotations", "TableText",
     ExpressionUUID->"d47320e1-d84e-4215-b240-f6e660388bce"]},
   {"\"\<RotationMap\>\"", Cell[
    "maps domains to their respective rotation amounts", "TableText",
     ExpressionUUID->"ce8fc0cb-c327-4d5c-b39c-fadc3b6db238"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.782111791336892*^9, 3.782111795167844*^9}, {
  3.7821118533926487`*^9, 3.782111866205271*^9}, {3.7821119251411552`*^9, 
  3.7821119494923983`*^9}, {3.78211198173866*^9, 3.782111984645475*^9}, {
  3.7821123365956306`*^9, 3.782112351592585*^9}, {3.782112387548067*^9, 
  3.782112458017148*^9}, {3.782112508061597*^9, 3.7821126073155212`*^9}},
 CellID->2096742444,ExpressionUUID->"c8799249-885b-410f-b0fe-b7dadb61d5a0"],

Cell["\<\
An overview of the rotation options encountered in the relevant functions.\
\>", "Caption",
 CellChangeTimes->{{3.782111964052133*^9, 3.782111975842725*^9}},
 CellID->1891092685,ExpressionUUID->"b4e75551-e932-4317-8d64-d296c7651fb2"],

Cell["\<\
The functions that currently make use of the rotation options are:\
\>", "Text",
 CellChangeTimes->{{3.782113311907605*^9, 3.782113316106583*^9}, {
  3.782113352361536*^9, 3.782113353010724*^9}, {3.782466427325573*^9, 
  3.782466466852125*^9}, {3.782467315894405*^9, 3.7824673185791283`*^9}},
 CellID->1988357493,ExpressionUUID->"23c2c47f-a4c9-4588-9a07-f5b344712787"],

Cell[BoxData[GridBox[{
   {"DomainPlot", Cell[
    "provides a visual plot of a domain representation", "TableText",
     ExpressionUUID->"636c5ad9-f744-457b-bc59-7678f955bb7e"]},
   {"EmbedStructure", Cell[
    "embeds given units into a host system", "TableText",ExpressionUUID->
     "3d12eb91-519e-4159-9a93-8a0545040b35"]},
   {"SynthesiseStructure", Cell[
    "assembles a given domain to the represented structure", "TableText",
     ExpressionUUID->"66917bcc-aa8f-418a-a811-0aca456623e1"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.782113518528501*^9, 3.7821135277731543`*^9}, {
  3.782113573776288*^9, 3.782113658837228*^9}, {3.7821138288752823`*^9, 
  3.782113847006778*^9}, {3.782114317942266*^9, 3.78211435482836*^9}, {
  3.782114467170896*^9, 3.782114479774637*^9}},
 CellID->827962455,ExpressionUUID->"adc977de-239c-4d62-b3bd-310723c58024"],

Cell["The relevant functions along with short descriptions.", "Caption",
 CellChangeTimes->{{3.782114387733025*^9, 3.782114409234509*^9}, {
  3.782466422574197*^9, 3.782466423565696*^9}, {3.782466472036545*^9, 
  3.7824664730282297`*^9}},
 CellID->2018432272,ExpressionUUID->"4b5af968-7994-403d-bd2c-67534404043e"],

Cell[CellGroupData[{

Cell["Load the package if not done already:", "MathCaption",
 CellChangeTimes->{{3.782112031405562*^9, 3.7821120434534817`*^9}},
 CellID->836781195,ExpressionUUID->"2cb5d8db-1328-410e-880e-721c2cc0ae3f"],

Cell[BoxData[
 RowBox[{"<<", "MaXrd`"}]], "Input",
 CellChangeTimes->{{3.782112045095525*^9, 3.782112048957346*^9}},
 CellLabel->"In[1]:=",
 CellID->2058623809,ExpressionUUID->"b3748436-ac16-4293-96f6-7af198b83188"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Anchors", "Section",
 CellChangeTimes->{{3.7878096003104258`*^9, 3.7878096012843037`*^9}},
 CellID->1783646765,ExpressionUUID->"99644d9a-e694-40eb-bb70-6e4e64281ef3"],

Cell[TextData[{
 "By ",
 StyleBox["anchor",
  FontSlant->"Italic"],
 " we mean the particular point a rotation will be performed about. The first \
option, ",
 Cell[BoxData["\"\<RotationAnchorReference\>\""], "InlineFormula",
  FormatType->"StandardForm",ExpressionUUID->
  "e9140f66-4a9b-4373-80e9-548f16dccbba"],
 " enables us to choose between four general positions of the anchor(s):"
}], "Text",
 CellChangeTimes->{{3.782112767847542*^9, 3.7821127963261547`*^9}, {
  3.782112974210416*^9, 3.7821130870446978`*^9}},
 CellID->133240190,ExpressionUUID->"d877cfca-78d0-48b5-968c-03e6e9a8c93f"],

Cell[BoxData[GridBox[{
   {"\"\<Host\>\"", Cell[
    "origin of the host structure", "TableText",ExpressionUUID->
     "70d91315-8552-4e23-be53-40539de70aea"]},
   {"\"\<Domain\>\"", Cell["\<\
origin of each domain's cell that is closest to the host's origin\
\>", "TableText",ExpressionUUID->"b2149732-855d-4049-96e4-2be766ccbeb4"]},
   {"\"\<DomainCentroid\>\"", Cell[
    "centroid of each domain", "TableText",ExpressionUUID->
     "b89e875d-ac36-46e7-9346-462f310135eb"]},
   {"\"\<Unit\>\"", Cell[
    "origin of each unit", "TableText",ExpressionUUID->
     "2790ff4d-e88f-4f5c-89bd-fed61a20ba97"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.782113173815888*^9, 3.7821132320597963`*^9}},
 CellID->752541106,ExpressionUUID->"350ed14e-78bf-4e9a-916f-075a5e7e33d8"],

Cell[TextData[{
 "All the possible settings of the ",
 Cell[BoxData["\"\<RotationAnchorReference\>\""], "InlineFormula",
  FormatType->"StandardForm",ExpressionUUID->
  "3bf5d5dd-c7c8-471a-869e-54f5fa57f068"],
 " option and what they mean."
}], "Caption",
 CellChangeTimes->{{3.7821132432231207`*^9, 3.782113283134036*^9}},
 CellID->1427171359,ExpressionUUID->"8c66ce20-c6f2-4782-a204-7682aae64da0"],

Cell[TextData[{
 "We will start an example using ",
 Cell[BoxData[
  ButtonBox["DomainPlot",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/DomainPlot"]], "InlineFormula",
  ExpressionUUID->"d7eb274d-4d1b-4bf7-8d38-e417eb7dbac0"],
 ":"
}], "Text",
 CellChangeTimes->{{3.782114844562296*^9, 3.78211486086751*^9}, {
   3.782114946589349*^9, 3.782114956649055*^9}, {3.782115100716614*^9, 
   3.782115112845929*^9}, {3.7821152321304693`*^9, 3.782115234346635*^9}, 
   3.782115281377739*^9, {3.782120654658435*^9, 3.7821206583838787`*^9}},
 CellID->1051416660,ExpressionUUID->"c6ab487c-4d7a-4ccb-9a7c-bca3dee49049"],

Cell[CellGroupData[{

Cell["This will be the domain we'll be working with in this demo:", \
"MathCaption",
 CellChangeTimes->{{3.782116445021534*^9, 3.78211646862846*^9}},
 CellID->1002407248,ExpressionUUID->"916edf03-e1e9-4ca8-816f-24e4df0589a0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7", ",", "7", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "3", ",", "3", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1", ",", 
       "3", ",", "3", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1", ",", 
       "3", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
       "3", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
       "3", ",", "2", ",", "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", 
       "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", 
       "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2"}], 
      "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DomainPlot", "@", "domain"}]}], "Input",
 CellChangeTimes->{{3.782115245851185*^9, 3.7821152504429903`*^9}},
 CellLabel->"In[1]:=",
 CellID->449406421,ExpressionUUID->"e8fe267c-c915-48a6-8c65-b307aebf9cf2"],

Cell[BoxData[
 GraphicsBox[
  {Opacity[1.], 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{0., 0.}, {1., 0.}, {1., 1.}, {0., 1.}}],
     Parallelepiped[{0., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{0., 1.}, {1., 1.}, {1., 2.}, {0., 2.}}],
     Parallelepiped[{0., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{0., 2.}, {1., 2.}, {1., 3.}, {0., 3.}}],
     Parallelepiped[{0., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{0., 3.}, {1., 3.}, {1., 4.}, {0., 4.}}],
     Parallelepiped[{0., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{0., 4.}, {1., 4.}, {1., 5.}, {0., 5.}}],
     Parallelepiped[{0., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{0., 5.}, {1., 5.}, {1., 6.}, {0., 6.}}],
     Parallelepiped[{0., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{0., 6.}, {1., 6.}, {1., 7.}, {0., 7.}}],
     Parallelepiped[{0., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{1., 0.}, {2., 0.}, {2., 1.}, {1., 1.}}],
     Parallelepiped[{1., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{1., 1.}, {2., 1.}, {2., 2.}, {1., 2.}}],
     Parallelepiped[{1., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{1., 2.}, {2., 2.}, {2., 3.}, {1., 3.}}],
     Parallelepiped[{1., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{1., 3.}, {2., 3.}, {2., 4.}, {1., 4.}}],
     Parallelepiped[{1., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{1., 4.}, {2., 4.}, {2., 5.}, {1., 5.}}],
     Parallelepiped[{1., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{1., 5.}, {2., 5.}, {2., 6.}, {1., 6.}}],
     Parallelepiped[{1., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{1., 6.}, {2., 6.}, {2., 7.}, {1., 7.}}],
     Parallelepiped[{1., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{2., 0.}, {3., 0.}, {3., 1.}, {2., 1.}}],
     Parallelepiped[{2., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{2., 1.}, {3., 1.}, {3., 2.}, {2., 2.}}],
     Parallelepiped[{2., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{2., 2.}, {3., 2.}, {3., 3.}, {2., 3.}}],
     Parallelepiped[{2., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{2., 3.}, {3., 3.}, {3., 4.}, {2., 4.}}],
     Parallelepiped[{2., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{2., 4.}, {3., 4.}, {3., 5.}, {2., 5.}}],
     Parallelepiped[{2., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{2., 5.}, {3., 5.}, {3., 6.}, {2., 6.}}],
     Parallelepiped[{2., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{2., 6.}, {3., 6.}, {3., 7.}, {2., 7.}}],
     Parallelepiped[{2., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{3., 0.}, {4., 0.}, {4., 1.}, {3., 1.}}],
     Parallelepiped[{3., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{3., 1.}, {4., 1.}, {4., 2.}, {3., 2.}}],
     Parallelepiped[{3., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{3., 2.}, {4., 2.}, {4., 3.}, {3., 3.}}],
     Parallelepiped[{3., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{3., 3.}, {4., 3.}, {4., 4.}, {3., 4.}}],
     Parallelepiped[{3., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{3., 4.}, {4., 4.}, {4., 5.}, {3., 5.}}],
     Parallelepiped[{3., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{3., 5.}, {4., 5.}, {4., 6.}, {3., 6.}}],
     Parallelepiped[{3., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{3., 6.}, {4., 6.}, {4., 7.}, {3., 7.}}],
     Parallelepiped[{3., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 0, 1], 
    InterpretationBox[PolygonBox[{{4., 0.}, {5., 0.}, {5., 1.}, {4., 1.}}],
     Parallelepiped[{4., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{4., 1.}, {5., 1.}, {5., 2.}, {4., 2.}}],
     Parallelepiped[{4., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{4., 2.}, {5., 2.}, {5., 3.}, {4., 3.}}],
     Parallelepiped[{4., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{4., 3.}, {5., 3.}, {5., 4.}, {4., 4.}}],
     Parallelepiped[{4., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{4., 4.}, {5., 4.}, {5., 5.}, {4., 5.}}],
     Parallelepiped[{4., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{4., 5.}, {5., 5.}, {5., 6.}, {4., 6.}}],
     Parallelepiped[{4., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[PolygonBox[{{4., 6.}, {5., 6.}, {5., 7.}, {4., 7.}}],
     Parallelepiped[{4., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 0.}, {6., 0.}, {6., 1.}, {5., 1.}}],
     Parallelepiped[{5., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 1.}, {6., 1.}, {6., 2.}, {5., 2.}}],
     Parallelepiped[{5., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 2.}, {6., 2.}, {6., 3.}, {5., 3.}}],
     Parallelepiped[{5., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 3.}, {6., 3.}, {6., 4.}, {5., 4.}}],
     Parallelepiped[{5., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 4.}, {6., 4.}, {6., 5.}, {5., 5.}}],
     Parallelepiped[{5., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 5.}, {6., 5.}, {6., 6.}, {5., 6.}}],
     Parallelepiped[{5., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{5., 6.}, {6., 6.}, {6., 7.}, {5., 7.}}],
     Parallelepiped[{5., 6.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 0.}, {7., 0.}, {7., 1.}, {6., 1.}}],
     Parallelepiped[{6., 0.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 1.}, {7., 1.}, {7., 2.}, {6., 2.}}],
     Parallelepiped[{6., 1.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 2.}, {7., 2.}, {7., 3.}, {6., 3.}}],
     Parallelepiped[{6., 2.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 3.}, {7., 3.}, {7., 4.}, {6., 4.}}],
     Parallelepiped[{6., 3.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 4.}, {7., 4.}, {7., 5.}, {6., 5.}}],
     Parallelepiped[{6., 4.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 5.}, {7., 5.}, {7., 6.}, {6., 6.}}],
     Parallelepiped[{6., 5.}, {{1., 0.}, {0., 1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[PolygonBox[{{6., 6.}, {7., 6.}, {7., 7.}, {6., 7.}}],
     Parallelepiped[{6., 6.}, {{1., 0.}, {0., 1.}}]]}},
  Frame->False]], "Output",
 CellChangeTimes->{{3.782115251273617*^9, 3.782115264203773*^9}, 
   3.7821192020154743`*^9, 3.782120316699609*^9, 3.782122326463249*^9},
 CellLabel->"Out[2]=",
 CellID->2013447779,ExpressionUUID->"735487c4-6330-47aa-b7fa-bc1bf2eb2546"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Before we start rotating let us define a map for all the anchors that can \
come up with this particular domain:\
\>", "MathCaption",
 CellChangeTimes->{{3.7821177941762657`*^9, 3.782117817888187*^9}, {
  3.7821178521929293`*^9, 3.782117864000409*^9}, {3.782117899300612*^9, 
  3.782117919880818*^9}, {3.7821190019961653`*^9, 3.782119015095772*^9}},
 CellID->1158761453,ExpressionUUID->"f61a0bc9-1c47-478c-a7ac-139757670e1c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"anchors", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<Host\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0.", ",", "0."}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Domain\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "0."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.", ",", "3."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.", ",", "1."}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<DomainCentroid\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.912", ",", "2.029"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.643", ",", "5.286"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.667", ",", "3.500"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<Unit\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "5."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "6."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.", ",", "5."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.", ",", "6."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.", ",", "3."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.", ",", "4."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.", ",", "5."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.", ",", "6."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.", ",", "3."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.", ",", "4."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.", ",", "5."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.", ",", "6."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.", ",", "3."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.", ",", "6."}], "}"}]}], "}"}]}]}], "|>"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.779697343309288*^9, 3.779697390123822*^9}, {
   3.782059254971538*^9, 3.782059289786528*^9}, 3.782059458202314*^9, {
   3.782060661119801*^9, 3.782060698772881*^9}, {3.782063443312621*^9, 
   3.782063457224476*^9}, {3.7820635728389053`*^9, 3.782063599782692*^9}, {
   3.782117384138153*^9, 3.7821173844121323`*^9}, {3.78211906423153*^9, 
   3.782119070352879*^9}},
 CellLabel->"In[3]:=",
 CellID->766536665,ExpressionUUID->"a18b5e72-9af2-4c7e-8e3c-3e08d61168e1"]
}, Open  ]],

Cell["\<\
The anchor points defined above are produced internally by the functions, but \
not directly obtainable. They are therefore copied here. We will momentarily \
be using them to show graphically where they are.\
\>", "Text",
 CellChangeTimes->{{3.782119089461033*^9, 3.7821191087579536`*^9}, {
  3.7821191847537622`*^9, 3.7821191868611526`*^9}, {3.7821192941900167`*^9, 
  3.782119387888111*^9}},
 CellID->1425365031,ExpressionUUID->"bc4781be-3e7a-4bcf-b131-261e4ba15cd0"],

Cell[CellGroupData[{

Cell[TextData[{
 "Below is an interactive controller to illustrate the various anchor \
reference settings. The yellow dots indicate where the anchors are (to avoid \
cluttering, only the red cells have the anchors shown in the ",
 Cell[BoxData["\"\<Unit\>\""], "InlineFormula",
  FormatType->"StandardForm",ExpressionUUID->
  "b100c449-f55b-45c1-aa75-7f4cefa0baf9"],
 " setting)."
}], "MathCaption",
 CellChangeTimes->{{3.782119427943962*^9, 3.782119433476606*^9}, {
  3.782120359647037*^9, 3.7821203992733917`*^9}, {3.7821204830875807`*^9, 
  3.782120590607885*^9}, {3.782120625085558*^9, 3.782120633053525*^9}},
 CellID->506884064,ExpressionUUID->"da79b556-37fd-4b73-bb7e-13af7e88fb74"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"First", "@", 
       RowBox[{"DomainPlot", "[", 
        RowBox[{"domain", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<RotationMap\>\"", "\[Rule]", 
          RowBox[{"<|", 
           RowBox[{
            RowBox[{"1", "\[Rule]", 
             RowBox[{"\[Theta]1", "*", "Degree"}]}], ",", 
            RowBox[{"2", "\[Rule]", 
             RowBox[{"\[Theta]2", "*", "Degree"}]}], ",", 
            RowBox[{"3", "\[Rule]", 
             RowBox[{"\[Theta]3", "*", "Degree"}]}]}], "|>"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<RotationAnchorReference\>\"", "\[Rule]", "r"}]}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Yellow", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Disk", "[", 
           RowBox[{"#", ",", "0.25"}], "]"}], "&"}], "/@", 
         RowBox[{"anchors", "@", "r"}]}]}], "}"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Theta]1", ",", "0", ",", "\"\<Red\>\""}], "}"}], ",", "0", 
     ",", "90"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Theta]2", ",", "0", ",", "\"\<Green\>\""}], "}"}], ",", "0", 
     ",", "90"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Theta]3", ",", "0", ",", "\"\<Blue\>\""}], "}"}], ",", "0", 
     ",", "90"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "\"\<DomainCentroid\>\"", ",", "\"\<Type\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Host\>\"", ",", "\"\<Domain\>\"", ",", "\"\<DomainCentroid\>\"", 
       ",", "\"\<Unit\>\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "\[Rule]", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.782119430309394*^9, 3.7821194345509853`*^9}, {
   3.782119572717828*^9, 3.7821195822862463`*^9}, {3.782119705697473*^9, 
   3.782119733304624*^9}, {3.7821198243863153`*^9, 3.782119854693328*^9}, {
   3.782119888202552*^9, 3.782120069129406*^9}, {3.782120152171788*^9, 
   3.782120260817955*^9}, 3.782120303222549*^9},
 CellLabel->"In[4]:=",
 CellID->999724886,ExpressionUUID->"d0f60e39-3be5-4558-ba9d-33d3918a0296"]
}, Open  ]],

Cell[TextData[{
 "If you need further control of where the anchors should be, use the option ",
 Cell[BoxData["\"\<RotationAnchorShift\>\""], "InlineFormula",
  FormatType->"StandardForm",ExpressionUUID->
  "bd342335-17ce-4360-953e-1567f29cc714"],
 " to translate the anchor(s)."
}], "Text",
 CellChangeTimes->{{3.782120773561879*^9, 3.782120776615595*^9}, {
  3.782120966895063*^9, 3.782120971841161*^9}, {3.782121096957549*^9, 
  3.782121131275732*^9}, {3.7821211854703703`*^9, 3.7821211867778482`*^9}, {
  3.782121422664671*^9, 3.7821214423455772`*^9}},
 CellID->1271064411,ExpressionUUID->"e86ad972-8375-4955-99e1-cd554265706e"],

Cell[CellGroupData[{

Cell["A practical example", "Subsection",
 CellChangeTimes->{{3.7824660243113623`*^9, 3.7824660499327087`*^9}},
 CellID->314884389,ExpressionUUID->"84b4807c-b3f7-4eda-a3ea-e1e610806ae3"],

Cell["\<\
Now that we're more familiar with the anchors, let us look at a more \
practical example. We will create two layers where the top sheet should be \
rotated. Then, we will synthesise the structure with graphene. First, let us \
make a general factory method that creates the layered domain:\
\>", "Text",
 CellChangeTimes->{{3.78212074517999*^9, 3.782120755442595*^9}, {
  3.7821214533913593`*^9, 3.782121474793173*^9}, {3.7821217482711277`*^9, 
  3.782121817826511*^9}, {3.78212200828745*^9, 3.7821220167344646`*^9}},
 CellID->45493021,ExpressionUUID->"277e4148-ad28-485b-ae3e-b9441c7dbe6c"],

Cell[CellGroupData[{

Cell["Our demo structure will consist of 7\[Times]7\[Times]2 unit cells:", \
"MathCaption",
 CellChangeTimes->{{3.7821231769783487`*^9, 3.782123247956008*^9}},
 CellID->545123292,ExpressionUUID->"babd1f14-a83d-487e-b708-efc4abbfd338"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"makeSandwichedDomains", "[", 
   RowBox[{"A_", ",", "B_", ",", "C_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"A", ",", "B", ",", "C"}], "}"}], ",", 
    RowBox[{"Flatten", "@", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"Range", "@", "C"}], ",", 
       RowBox[{"A", "*", "B"}]}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"domain", "=", 
   RowBox[{"makeSandwichedDomains", "[", 
    RowBox[{"7", ",", "7", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DomainPlot", "@", "domain"}]}], "Input",
 CellChangeTimes->{3.782121828015491*^9},
 CellLabel->"In[1]:=",
 CellID->721930542,ExpressionUUID->"352f13a4-5854-4cd7-af2e-3f49cbab8157"],

Cell[BoxData[
 Graphics3DBox[
  {Opacity[1.], 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 0., 0.}, {1., 0., 0.}, {1., 1., 0.}, {0., 1., 0.}, {
      0., 0., 1.}, {1., 0., 1.}, {1., 1., 1.}, {0., 1., 1.}}],
     Parallelepiped[{0., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 0., 1.}, {1., 0., 1.}, {1., 1., 1.}, {0., 1., 1.}, {
      0., 0., 2.}, {1., 0., 2.}, {1., 1., 2.}, {0., 1., 2.}}],
     Parallelepiped[{0., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 1., 0.}, {1., 1., 0.}, {1., 2., 0.}, {0., 2., 0.}, {
      0., 1., 1.}, {1., 1., 1.}, {1., 2., 1.}, {0., 2., 1.}}],
     Parallelepiped[{0., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 1., 1.}, {1., 1., 1.}, {1., 2., 1.}, {0., 2., 1.}, {
      0., 1., 2.}, {1., 1., 2.}, {1., 2., 2.}, {0., 2., 2.}}],
     Parallelepiped[{0., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 2., 0.}, {1., 2., 0.}, {1., 3., 0.}, {0., 3., 0.}, {
      0., 2., 1.}, {1., 2., 1.}, {1., 3., 1.}, {0., 3., 1.}}],
     Parallelepiped[{0., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 2., 1.}, {1., 2., 1.}, {1., 3., 1.}, {0., 3., 1.}, {
      0., 2., 2.}, {1., 2., 2.}, {1., 3., 2.}, {0., 3., 2.}}],
     Parallelepiped[{0., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 3., 0.}, {1., 3., 0.}, {1., 4., 0.}, {0., 4., 0.}, {
      0., 3., 1.}, {1., 3., 1.}, {1., 4., 1.}, {0., 4., 1.}}],
     Parallelepiped[{0., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 3., 1.}, {1., 3., 1.}, {1., 4., 1.}, {0., 4., 1.}, {
      0., 3., 2.}, {1., 3., 2.}, {1., 4., 2.}, {0., 4., 2.}}],
     Parallelepiped[{0., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 4., 0.}, {1., 4., 0.}, {1., 5., 0.}, {0., 5., 0.}, {
      0., 4., 1.}, {1., 4., 1.}, {1., 5., 1.}, {0., 5., 1.}}],
     Parallelepiped[{0., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 4., 1.}, {1., 4., 1.}, {1., 5., 1.}, {0., 5., 1.}, {
      0., 4., 2.}, {1., 4., 2.}, {1., 5., 2.}, {0., 5., 2.}}],
     Parallelepiped[{0., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 5., 0.}, {1., 5., 0.}, {1., 6., 0.}, {0., 6., 0.}, {
      0., 5., 1.}, {1., 5., 1.}, {1., 6., 1.}, {0., 6., 1.}}],
     Parallelepiped[{0., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 5., 1.}, {1., 5., 1.}, {1., 6., 1.}, {0., 6., 1.}, {
      0., 5., 2.}, {1., 5., 2.}, {1., 6., 2.}, {0., 6., 2.}}],
     Parallelepiped[{0., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 6., 0.}, {1., 6., 0.}, {1., 7., 0.}, {0., 7., 0.}, {
      0., 6., 1.}, {1., 6., 1.}, {1., 7., 1.}, {0., 7., 1.}}],
     Parallelepiped[{0., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{0., 6., 1.}, {1., 6., 1.}, {1., 7., 1.}, {0., 7., 1.}, {
      0., 6., 2.}, {1., 6., 2.}, {1., 7., 2.}, {0., 7., 2.}}],
     Parallelepiped[{0., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 0., 0.}, {2., 0., 0.}, {2., 1., 0.}, {1., 1., 0.}, {
      1., 0., 1.}, {2., 0., 1.}, {2., 1., 1.}, {1., 1., 1.}}],
     Parallelepiped[{1., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 0., 1.}, {2., 0., 1.}, {2., 1., 1.}, {1., 1., 1.}, {
      1., 0., 2.}, {2., 0., 2.}, {2., 1., 2.}, {1., 1., 2.}}],
     Parallelepiped[{1., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 1., 0.}, {2., 1., 0.}, {2., 2., 0.}, {1., 2., 0.}, {
      1., 1., 1.}, {2., 1., 1.}, {2., 2., 1.}, {1., 2., 1.}}],
     Parallelepiped[{1., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 1., 1.}, {2., 1., 1.}, {2., 2., 1.}, {1., 2., 1.}, {
      1., 1., 2.}, {2., 1., 2.}, {2., 2., 2.}, {1., 2., 2.}}],
     Parallelepiped[{1., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 2., 0.}, {2., 2., 0.}, {2., 3., 0.}, {1., 3., 0.}, {
      1., 2., 1.}, {2., 2., 1.}, {2., 3., 1.}, {1., 3., 1.}}],
     Parallelepiped[{1., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 2., 1.}, {2., 2., 1.}, {2., 3., 1.}, {1., 3., 1.}, {
      1., 2., 2.}, {2., 2., 2.}, {2., 3., 2.}, {1., 3., 2.}}],
     Parallelepiped[{1., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 3., 0.}, {2., 3., 0.}, {2., 4., 0.}, {1., 4., 0.}, {
      1., 3., 1.}, {2., 3., 1.}, {2., 4., 1.}, {1., 4., 1.}}],
     Parallelepiped[{1., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 3., 1.}, {2., 3., 1.}, {2., 4., 1.}, {1., 4., 1.}, {
      1., 3., 2.}, {2., 3., 2.}, {2., 4., 2.}, {1., 4., 2.}}],
     Parallelepiped[{1., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 4., 0.}, {2., 4., 0.}, {2., 5., 0.}, {1., 5., 0.}, {
      1., 4., 1.}, {2., 4., 1.}, {2., 5., 1.}, {1., 5., 1.}}],
     Parallelepiped[{1., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 4., 1.}, {2., 4., 1.}, {2., 5., 1.}, {1., 5., 1.}, {
      1., 4., 2.}, {2., 4., 2.}, {2., 5., 2.}, {1., 5., 2.}}],
     Parallelepiped[{1., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 5., 0.}, {2., 5., 0.}, {2., 6., 0.}, {1., 6., 0.}, {
      1., 5., 1.}, {2., 5., 1.}, {2., 6., 1.}, {1., 6., 1.}}],
     Parallelepiped[{1., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 5., 1.}, {2., 5., 1.}, {2., 6., 1.}, {1., 6., 1.}, {
      1., 5., 2.}, {2., 5., 2.}, {2., 6., 2.}, {1., 6., 2.}}],
     Parallelepiped[{1., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 6., 0.}, {2., 6., 0.}, {2., 7., 0.}, {1., 7., 0.}, {
      1., 6., 1.}, {2., 6., 1.}, {2., 7., 1.}, {1., 7., 1.}}],
     Parallelepiped[{1., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{1., 6., 1.}, {2., 6., 1.}, {2., 7., 1.}, {1., 7., 1.}, {
      1., 6., 2.}, {2., 6., 2.}, {2., 7., 2.}, {1., 7., 2.}}],
     Parallelepiped[{1., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 0., 0.}, {3., 0., 0.}, {3., 1., 0.}, {2., 1., 0.}, {
      2., 0., 1.}, {3., 0., 1.}, {3., 1., 1.}, {2., 1., 1.}}],
     Parallelepiped[{2., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 0., 1.}, {3., 0., 1.}, {3., 1., 1.}, {2., 1., 1.}, {
      2., 0., 2.}, {3., 0., 2.}, {3., 1., 2.}, {2., 1., 2.}}],
     Parallelepiped[{2., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 1., 0.}, {3., 1., 0.}, {3., 2., 0.}, {2., 2., 0.}, {
      2., 1., 1.}, {3., 1., 1.}, {3., 2., 1.}, {2., 2., 1.}}],
     Parallelepiped[{2., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 1., 1.}, {3., 1., 1.}, {3., 2., 1.}, {2., 2., 1.}, {
      2., 1., 2.}, {3., 1., 2.}, {3., 2., 2.}, {2., 2., 2.}}],
     Parallelepiped[{2., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 2., 0.}, {3., 2., 0.}, {3., 3., 0.}, {2., 3., 0.}, {
      2., 2., 1.}, {3., 2., 1.}, {3., 3., 1.}, {2., 3., 1.}}],
     Parallelepiped[{2., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 2., 1.}, {3., 2., 1.}, {3., 3., 1.}, {2., 3., 1.}, {
      2., 2., 2.}, {3., 2., 2.}, {3., 3., 2.}, {2., 3., 2.}}],
     Parallelepiped[{2., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 3., 0.}, {3., 3., 0.}, {3., 4., 0.}, {2., 4., 0.}, {
      2., 3., 1.}, {3., 3., 1.}, {3., 4., 1.}, {2., 4., 1.}}],
     Parallelepiped[{2., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 3., 1.}, {3., 3., 1.}, {3., 4., 1.}, {2., 4., 1.}, {
      2., 3., 2.}, {3., 3., 2.}, {3., 4., 2.}, {2., 4., 2.}}],
     Parallelepiped[{2., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 4., 0.}, {3., 4., 0.}, {3., 5., 0.}, {2., 5., 0.}, {
      2., 4., 1.}, {3., 4., 1.}, {3., 5., 1.}, {2., 5., 1.}}],
     Parallelepiped[{2., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 4., 1.}, {3., 4., 1.}, {3., 5., 1.}, {2., 5., 1.}, {
      2., 4., 2.}, {3., 4., 2.}, {3., 5., 2.}, {2., 5., 2.}}],
     Parallelepiped[{2., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 5., 0.}, {3., 5., 0.}, {3., 6., 0.}, {2., 6., 0.}, {
      2., 5., 1.}, {3., 5., 1.}, {3., 6., 1.}, {2., 6., 1.}}],
     Parallelepiped[{2., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 5., 1.}, {3., 5., 1.}, {3., 6., 1.}, {2., 6., 1.}, {
      2., 5., 2.}, {3., 5., 2.}, {3., 6., 2.}, {2., 6., 2.}}],
     Parallelepiped[{2., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 6., 0.}, {3., 6., 0.}, {3., 7., 0.}, {2., 7., 0.}, {
      2., 6., 1.}, {3., 6., 1.}, {3., 7., 1.}, {2., 7., 1.}}],
     Parallelepiped[{2., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{2., 6., 1.}, {3., 6., 1.}, {3., 7., 1.}, {2., 7., 1.}, {
      2., 6., 2.}, {3., 6., 2.}, {3., 7., 2.}, {2., 7., 2.}}],
     Parallelepiped[{2., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 0., 0.}, {4., 0., 0.}, {4., 1., 0.}, {3., 1., 0.}, {
      3., 0., 1.}, {4., 0., 1.}, {4., 1., 1.}, {3., 1., 1.}}],
     Parallelepiped[{3., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 0., 1.}, {4., 0., 1.}, {4., 1., 1.}, {3., 1., 1.}, {
      3., 0., 2.}, {4., 0., 2.}, {4., 1., 2.}, {3., 1., 2.}}],
     Parallelepiped[{3., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 1., 0.}, {4., 1., 0.}, {4., 2., 0.}, {3., 2., 0.}, {
      3., 1., 1.}, {4., 1., 1.}, {4., 2., 1.}, {3., 2., 1.}}],
     Parallelepiped[{3., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 1., 1.}, {4., 1., 1.}, {4., 2., 1.}, {3., 2., 1.}, {
      3., 1., 2.}, {4., 1., 2.}, {4., 2., 2.}, {3., 2., 2.}}],
     Parallelepiped[{3., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 2., 0.}, {4., 2., 0.}, {4., 3., 0.}, {3., 3., 0.}, {
      3., 2., 1.}, {4., 2., 1.}, {4., 3., 1.}, {3., 3., 1.}}],
     Parallelepiped[{3., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 2., 1.}, {4., 2., 1.}, {4., 3., 1.}, {3., 3., 1.}, {
      3., 2., 2.}, {4., 2., 2.}, {4., 3., 2.}, {3., 3., 2.}}],
     Parallelepiped[{3., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 3., 0.}, {4., 3., 0.}, {4., 4., 0.}, {3., 4., 0.}, {
      3., 3., 1.}, {4., 3., 1.}, {4., 4., 1.}, {3., 4., 1.}}],
     Parallelepiped[{3., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 3., 1.}, {4., 3., 1.}, {4., 4., 1.}, {3., 4., 1.}, {
      3., 3., 2.}, {4., 3., 2.}, {4., 4., 2.}, {3., 4., 2.}}],
     Parallelepiped[{3., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 4., 0.}, {4., 4., 0.}, {4., 5., 0.}, {3., 5., 0.}, {
      3., 4., 1.}, {4., 4., 1.}, {4., 5., 1.}, {3., 5., 1.}}],
     Parallelepiped[{3., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 4., 1.}, {4., 4., 1.}, {4., 5., 1.}, {3., 5., 1.}, {
      3., 4., 2.}, {4., 4., 2.}, {4., 5., 2.}, {3., 5., 2.}}],
     Parallelepiped[{3., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 5., 0.}, {4., 5., 0.}, {4., 6., 0.}, {3., 6., 0.}, {
      3., 5., 1.}, {4., 5., 1.}, {4., 6., 1.}, {3., 6., 1.}}],
     Parallelepiped[{3., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 5., 1.}, {4., 5., 1.}, {4., 6., 1.}, {3., 6., 1.}, {
      3., 5., 2.}, {4., 5., 2.}, {4., 6., 2.}, {3., 6., 2.}}],
     Parallelepiped[{3., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 6., 0.}, {4., 6., 0.}, {4., 7., 0.}, {3., 7., 0.}, {
      3., 6., 1.}, {4., 6., 1.}, {4., 7., 1.}, {3., 7., 1.}}],
     Parallelepiped[{3., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{3., 6., 1.}, {4., 6., 1.}, {4., 7., 1.}, {3., 7., 1.}, {
      3., 6., 2.}, {4., 6., 2.}, {4., 7., 2.}, {3., 7., 2.}}],
     Parallelepiped[{3., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 0., 0.}, {5., 0., 0.}, {5., 1., 0.}, {4., 1., 0.}, {
      4., 0., 1.}, {5., 0., 1.}, {5., 1., 1.}, {4., 1., 1.}}],
     Parallelepiped[{4., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 0., 1.}, {5., 0., 1.}, {5., 1., 1.}, {4., 1., 1.}, {
      4., 0., 2.}, {5., 0., 2.}, {5., 1., 2.}, {4., 1., 2.}}],
     Parallelepiped[{4., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 1., 0.}, {5., 1., 0.}, {5., 2., 0.}, {4., 2., 0.}, {
      4., 1., 1.}, {5., 1., 1.}, {5., 2., 1.}, {4., 2., 1.}}],
     Parallelepiped[{4., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 1., 1.}, {5., 1., 1.}, {5., 2., 1.}, {4., 2., 1.}, {
      4., 1., 2.}, {5., 1., 2.}, {5., 2., 2.}, {4., 2., 2.}}],
     Parallelepiped[{4., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 2., 0.}, {5., 2., 0.}, {5., 3., 0.}, {4., 3., 0.}, {
      4., 2., 1.}, {5., 2., 1.}, {5., 3., 1.}, {4., 3., 1.}}],
     Parallelepiped[{4., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 2., 1.}, {5., 2., 1.}, {5., 3., 1.}, {4., 3., 1.}, {
      4., 2., 2.}, {5., 2., 2.}, {5., 3., 2.}, {4., 3., 2.}}],
     Parallelepiped[{4., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 3., 0.}, {5., 3., 0.}, {5., 4., 0.}, {4., 4., 0.}, {
      4., 3., 1.}, {5., 3., 1.}, {5., 4., 1.}, {4., 4., 1.}}],
     Parallelepiped[{4., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 3., 1.}, {5., 3., 1.}, {5., 4., 1.}, {4., 4., 1.}, {
      4., 3., 2.}, {5., 3., 2.}, {5., 4., 2.}, {4., 4., 2.}}],
     Parallelepiped[{4., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 4., 0.}, {5., 4., 0.}, {5., 5., 0.}, {4., 5., 0.}, {
      4., 4., 1.}, {5., 4., 1.}, {5., 5., 1.}, {4., 5., 1.}}],
     Parallelepiped[{4., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 4., 1.}, {5., 4., 1.}, {5., 5., 1.}, {4., 5., 1.}, {
      4., 4., 2.}, {5., 4., 2.}, {5., 5., 2.}, {4., 5., 2.}}],
     Parallelepiped[{4., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 5., 0.}, {5., 5., 0.}, {5., 6., 0.}, {4., 6., 0.}, {
      4., 5., 1.}, {5., 5., 1.}, {5., 6., 1.}, {4., 6., 1.}}],
     Parallelepiped[{4., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 5., 1.}, {5., 5., 1.}, {5., 6., 1.}, {4., 6., 1.}, {
      4., 5., 2.}, {5., 5., 2.}, {5., 6., 2.}, {4., 6., 2.}}],
     Parallelepiped[{4., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 6., 0.}, {5., 6., 0.}, {5., 7., 0.}, {4., 7., 0.}, {
      4., 6., 1.}, {5., 6., 1.}, {5., 7., 1.}, {4., 7., 1.}}],
     Parallelepiped[{4., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{4., 6., 1.}, {5., 6., 1.}, {5., 7., 1.}, {4., 7., 1.}, {
      4., 6., 2.}, {5., 6., 2.}, {5., 7., 2.}, {4., 7., 2.}}],
     Parallelepiped[{4., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 0., 0.}, {6., 0., 0.}, {6., 1., 0.}, {5., 1., 0.}, {
      5., 0., 1.}, {6., 0., 1.}, {6., 1., 1.}, {5., 1., 1.}}],
     Parallelepiped[{5., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 0., 1.}, {6., 0., 1.}, {6., 1., 1.}, {5., 1., 1.}, {
      5., 0., 2.}, {6., 0., 2.}, {6., 1., 2.}, {5., 1., 2.}}],
     Parallelepiped[{5., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 1., 0.}, {6., 1., 0.}, {6., 2., 0.}, {5., 2., 0.}, {
      5., 1., 1.}, {6., 1., 1.}, {6., 2., 1.}, {5., 2., 1.}}],
     Parallelepiped[{5., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 1., 1.}, {6., 1., 1.}, {6., 2., 1.}, {5., 2., 1.}, {
      5., 1., 2.}, {6., 1., 2.}, {6., 2., 2.}, {5., 2., 2.}}],
     Parallelepiped[{5., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 2., 0.}, {6., 2., 0.}, {6., 3., 0.}, {5., 3., 0.}, {
      5., 2., 1.}, {6., 2., 1.}, {6., 3., 1.}, {5., 3., 1.}}],
     Parallelepiped[{5., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 2., 1.}, {6., 2., 1.}, {6., 3., 1.}, {5., 3., 1.}, {
      5., 2., 2.}, {6., 2., 2.}, {6., 3., 2.}, {5., 3., 2.}}],
     Parallelepiped[{5., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 3., 0.}, {6., 3., 0.}, {6., 4., 0.}, {5., 4., 0.}, {
      5., 3., 1.}, {6., 3., 1.}, {6., 4., 1.}, {5., 4., 1.}}],
     Parallelepiped[{5., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 3., 1.}, {6., 3., 1.}, {6., 4., 1.}, {5., 4., 1.}, {
      5., 3., 2.}, {6., 3., 2.}, {6., 4., 2.}, {5., 4., 2.}}],
     Parallelepiped[{5., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 4., 0.}, {6., 4., 0.}, {6., 5., 0.}, {5., 5., 0.}, {
      5., 4., 1.}, {6., 4., 1.}, {6., 5., 1.}, {5., 5., 1.}}],
     Parallelepiped[{5., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 4., 1.}, {6., 4., 1.}, {6., 5., 1.}, {5., 5., 1.}, {
      5., 4., 2.}, {6., 4., 2.}, {6., 5., 2.}, {5., 5., 2.}}],
     Parallelepiped[{5., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 5., 0.}, {6., 5., 0.}, {6., 6., 0.}, {5., 6., 0.}, {
      5., 5., 1.}, {6., 5., 1.}, {6., 6., 1.}, {5., 6., 1.}}],
     Parallelepiped[{5., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 5., 1.}, {6., 5., 1.}, {6., 6., 1.}, {5., 6., 1.}, {
      5., 5., 2.}, {6., 5., 2.}, {6., 6., 2.}, {5., 6., 2.}}],
     Parallelepiped[{5., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 6., 0.}, {6., 6., 0.}, {6., 7., 0.}, {5., 7., 0.}, {
      5., 6., 1.}, {6., 6., 1.}, {6., 7., 1.}, {5., 7., 1.}}],
     Parallelepiped[{5., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{5., 6., 1.}, {6., 6., 1.}, {6., 7., 1.}, {5., 7., 1.}, {
      5., 6., 2.}, {6., 6., 2.}, {6., 7., 2.}, {5., 7., 2.}}],
     Parallelepiped[{5., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 0., 0.}, {7., 0., 0.}, {7., 1., 0.}, {6., 1., 0.}, {
      6., 0., 1.}, {7., 0., 1.}, {7., 1., 1.}, {6., 1., 1.}}],
     Parallelepiped[{6., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 0., 1.}, {7., 0., 1.}, {7., 1., 1.}, {6., 1., 1.}, {
      6., 0., 2.}, {7., 0., 2.}, {7., 1., 2.}, {6., 1., 2.}}],
     Parallelepiped[{6., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 1., 0.}, {7., 1., 0.}, {7., 2., 0.}, {6., 2., 0.}, {
      6., 1., 1.}, {7., 1., 1.}, {7., 2., 1.}, {6., 2., 1.}}],
     Parallelepiped[{6., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 1., 1.}, {7., 1., 1.}, {7., 2., 1.}, {6., 2., 1.}, {
      6., 1., 2.}, {7., 1., 2.}, {7., 2., 2.}, {6., 2., 2.}}],
     Parallelepiped[{6., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 2., 0.}, {7., 2., 0.}, {7., 3., 0.}, {6., 3., 0.}, {
      6., 2., 1.}, {7., 2., 1.}, {7., 3., 1.}, {6., 3., 1.}}],
     Parallelepiped[{6., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 2., 1.}, {7., 2., 1.}, {7., 3., 1.}, {6., 3., 1.}, {
      6., 2., 2.}, {7., 2., 2.}, {7., 3., 2.}, {6., 3., 2.}}],
     Parallelepiped[{6., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 3., 0.}, {7., 3., 0.}, {7., 4., 0.}, {6., 4., 0.}, {
      6., 3., 1.}, {7., 3., 1.}, {7., 4., 1.}, {6., 4., 1.}}],
     Parallelepiped[{6., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 3., 1.}, {7., 3., 1.}, {7., 4., 1.}, {6., 4., 1.}, {
      6., 3., 2.}, {7., 3., 2.}, {7., 4., 2.}, {6., 4., 2.}}],
     Parallelepiped[{6., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 4., 0.}, {7., 4., 0.}, {7., 5., 0.}, {6., 5., 0.}, {
      6., 4., 1.}, {7., 4., 1.}, {7., 5., 1.}, {6., 5., 1.}}],
     Parallelepiped[{6., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 4., 1.}, {7., 4., 1.}, {7., 5., 1.}, {6., 5., 1.}, {
      6., 4., 2.}, {7., 4., 2.}, {7., 5., 2.}, {6., 5., 2.}}],
     Parallelepiped[{6., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 5., 0.}, {7., 5., 0.}, {7., 6., 0.}, {6., 6., 0.}, {
      6., 5., 1.}, {7., 5., 1.}, {7., 6., 1.}, {6., 6., 1.}}],
     Parallelepiped[{6., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 5., 1.}, {7., 5., 1.}, {7., 6., 1.}, {6., 6., 1.}, {
      6., 5., 2.}, {7., 5., 2.}, {7., 6., 2.}, {6., 6., 2.}}],
     Parallelepiped[{6., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[1, 0, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 6., 0.}, {7., 6., 0.}, {7., 7., 0.}, {6., 7., 0.}, {
      6., 6., 1.}, {7., 6., 1.}, {7., 7., 1.}, {6., 7., 1.}}],
     Parallelepiped[{6., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}, 
   {RGBColor[0, 1, 0], 
    InterpretationBox[
     HexahedronBox[{{6., 6., 1.}, {7., 6., 1.}, {7., 7., 1.}, {6., 7., 1.}, {
      6., 6., 2.}, {7., 6., 2.}, {7., 7., 2.}, {6., 7., 2.}}],
     Parallelepiped[{6., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
      1.}}]]}},
  Boxed->False]], "Output",
 CellChangeTimes->{3.7821218486683207`*^9, 3.7821222440569057`*^9, 
  3.782122335484644*^9},
 CellLabel->"Out[3]=",
 CellID->1193804758,ExpressionUUID->"01c2d2ae-4483-4726-8848-b3646ea7722b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We wish to rotate the top layer, for instance by 15\[Degree] and hinged at \
the lower-left corner:\
\>", "MathCaption",
 CellChangeTimes->{3.782122231552061*^9},
 CellID->918111546,ExpressionUUID->"63fc1d72-cd11-4f42-a5af-ed83faad323b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DomainPlot", "[", 
  RowBox[{"domain", ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<RotationMap\>\"", "\[Rule]", 
    RowBox[{"<|", 
     RowBox[{"2", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"15", "\[Degree]"}]}], "}"}]}], "|>"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<RotationAnchorReference\>\"", "\[Rule]", "\"\<Host\>\""}]}], 
  "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->1130242268,ExpressionUUID->"7decac2a-dec0-4e4e-ba11-205171a5630b"],

Cell[BoxData[
 Graphics3DBox[
  {Opacity[1.], 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 0., 0.}, {1., 0., 0.}, {1., 1., 0.}, {0., 1., 0.}, {
       0., 0., 1.}, {1., 0., 1.}, {1., 1., 1.}, {0., 1., 1.}}],
      Parallelepiped[{0., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 0., 1.}, {1., 0., 1.}, {1., 1., 1.}, {0., 1., 1.}, {
       0., 0., 2.}, {1., 0., 2.}, {1., 1., 2.}, {0., 1., 2.}}],
      Parallelepiped[{0., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 1., 0.}, {1., 1., 0.}, {1., 2., 0.}, {0., 2., 0.}, {
       0., 1., 1.}, {1., 1., 1.}, {1., 2., 1.}, {0., 2., 1.}}],
      Parallelepiped[{0., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 1., 1.}, {1., 1., 1.}, {1., 2., 1.}, {0., 2., 1.}, {
       0., 1., 2.}, {1., 1., 2.}, {1., 2., 2.}, {0., 2., 2.}}],
      Parallelepiped[{0., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 2., 0.}, {1., 2., 0.}, {1., 3., 0.}, {0., 3., 0.}, {
       0., 2., 1.}, {1., 2., 1.}, {1., 3., 1.}, {0., 3., 1.}}],
      Parallelepiped[{0., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 2., 1.}, {1., 2., 1.}, {1., 3., 1.}, {0., 3., 1.}, {
       0., 2., 2.}, {1., 2., 2.}, {1., 3., 2.}, {0., 3., 2.}}],
      Parallelepiped[{0., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 3., 0.}, {1., 3., 0.}, {1., 4., 0.}, {0., 4., 0.}, {
       0., 3., 1.}, {1., 3., 1.}, {1., 4., 1.}, {0., 4., 1.}}],
      Parallelepiped[{0., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 3., 1.}, {1., 3., 1.}, {1., 4., 1.}, {0., 4., 1.}, {
       0., 3., 2.}, {1., 3., 2.}, {1., 4., 2.}, {0., 4., 2.}}],
      Parallelepiped[{0., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 4., 0.}, {1., 4., 0.}, {1., 5., 0.}, {0., 5., 0.}, {
       0., 4., 1.}, {1., 4., 1.}, {1., 5., 1.}, {0., 5., 1.}}],
      Parallelepiped[{0., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 4., 1.}, {1., 4., 1.}, {1., 5., 1.}, {0., 5., 1.}, {
       0., 4., 2.}, {1., 4., 2.}, {1., 5., 2.}, {0., 5., 2.}}],
      Parallelepiped[{0., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 5., 0.}, {1., 5., 0.}, {1., 6., 0.}, {0., 6., 0.}, {
       0., 5., 1.}, {1., 5., 1.}, {1., 6., 1.}, {0., 6., 1.}}],
      Parallelepiped[{0., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 5., 1.}, {1., 5., 1.}, {1., 6., 1.}, {0., 6., 1.}, {
       0., 5., 2.}, {1., 5., 2.}, {1., 6., 2.}, {0., 6., 2.}}],
      Parallelepiped[{0., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 6., 0.}, {1., 6., 0.}, {1., 7., 0.}, {0., 7., 0.}, {
       0., 6., 1.}, {1., 6., 1.}, {1., 7., 1.}, {0., 7., 1.}}],
      Parallelepiped[{0., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{0., 6., 1.}, {1., 6., 1.}, {1., 7., 1.}, {0., 7., 1.}, {
       0., 6., 2.}, {1., 6., 2.}, {1., 7., 2.}, {0., 7., 2.}}],
      Parallelepiped[{0., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 0., 0.}, {2., 0., 0.}, {2., 1., 0.}, {1., 1., 0.}, {
       1., 0., 1.}, {2., 0., 1.}, {2., 1., 1.}, {1., 1., 1.}}],
      Parallelepiped[{1., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 0., 1.}, {2., 0., 1.}, {2., 1., 1.}, {1., 1., 1.}, {
       1., 0., 2.}, {2., 0., 2.}, {2., 1., 2.}, {1., 1., 2.}}],
      Parallelepiped[{1., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 1., 0.}, {2., 1., 0.}, {2., 2., 0.}, {1., 2., 0.}, {
       1., 1., 1.}, {2., 1., 1.}, {2., 2., 1.}, {1., 2., 1.}}],
      Parallelepiped[{1., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 1., 1.}, {2., 1., 1.}, {2., 2., 1.}, {1., 2., 1.}, {
       1., 1., 2.}, {2., 1., 2.}, {2., 2., 2.}, {1., 2., 2.}}],
      Parallelepiped[{1., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 2., 0.}, {2., 2., 0.}, {2., 3., 0.}, {1., 3., 0.}, {
       1., 2., 1.}, {2., 2., 1.}, {2., 3., 1.}, {1., 3., 1.}}],
      Parallelepiped[{1., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 2., 1.}, {2., 2., 1.}, {2., 3., 1.}, {1., 3., 1.}, {
       1., 2., 2.}, {2., 2., 2.}, {2., 3., 2.}, {1., 3., 2.}}],
      Parallelepiped[{1., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 3., 0.}, {2., 3., 0.}, {2., 4., 0.}, {1., 4., 0.}, {
       1., 3., 1.}, {2., 3., 1.}, {2., 4., 1.}, {1., 4., 1.}}],
      Parallelepiped[{1., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 3., 1.}, {2., 3., 1.}, {2., 4., 1.}, {1., 4., 1.}, {
       1., 3., 2.}, {2., 3., 2.}, {2., 4., 2.}, {1., 4., 2.}}],
      Parallelepiped[{1., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 4., 0.}, {2., 4., 0.}, {2., 5., 0.}, {1., 5., 0.}, {
       1., 4., 1.}, {2., 4., 1.}, {2., 5., 1.}, {1., 5., 1.}}],
      Parallelepiped[{1., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 4., 1.}, {2., 4., 1.}, {2., 5., 1.}, {1., 5., 1.}, {
       1., 4., 2.}, {2., 4., 2.}, {2., 5., 2.}, {1., 5., 2.}}],
      Parallelepiped[{1., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 5., 0.}, {2., 5., 0.}, {2., 6., 0.}, {1., 6., 0.}, {
       1., 5., 1.}, {2., 5., 1.}, {2., 6., 1.}, {1., 6., 1.}}],
      Parallelepiped[{1., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 5., 1.}, {2., 5., 1.}, {2., 6., 1.}, {1., 6., 1.}, {
       1., 5., 2.}, {2., 5., 2.}, {2., 6., 2.}, {1., 6., 2.}}],
      Parallelepiped[{1., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 6., 0.}, {2., 6., 0.}, {2., 7., 0.}, {1., 7., 0.}, {
       1., 6., 1.}, {2., 6., 1.}, {2., 7., 1.}, {1., 7., 1.}}],
      Parallelepiped[{1., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{1., 6., 1.}, {2., 6., 1.}, {2., 7., 1.}, {1., 7., 1.}, {
       1., 6., 2.}, {2., 6., 2.}, {2., 7., 2.}, {1., 7., 2.}}],
      Parallelepiped[{1., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 0., 0.}, {3., 0., 0.}, {3., 1., 0.}, {2., 1., 0.}, {
       2., 0., 1.}, {3., 0., 1.}, {3., 1., 1.}, {2., 1., 1.}}],
      Parallelepiped[{2., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 0., 1.}, {3., 0., 1.}, {3., 1., 1.}, {2., 1., 1.}, {
       2., 0., 2.}, {3., 0., 2.}, {3., 1., 2.}, {2., 1., 2.}}],
      Parallelepiped[{2., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 1., 0.}, {3., 1., 0.}, {3., 2., 0.}, {2., 2., 0.}, {
       2., 1., 1.}, {3., 1., 1.}, {3., 2., 1.}, {2., 2., 1.}}],
      Parallelepiped[{2., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 1., 1.}, {3., 1., 1.}, {3., 2., 1.}, {2., 2., 1.}, {
       2., 1., 2.}, {3., 1., 2.}, {3., 2., 2.}, {2., 2., 2.}}],
      Parallelepiped[{2., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 2., 0.}, {3., 2., 0.}, {3., 3., 0.}, {2., 3., 0.}, {
       2., 2., 1.}, {3., 2., 1.}, {3., 3., 1.}, {2., 3., 1.}}],
      Parallelepiped[{2., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 2., 1.}, {3., 2., 1.}, {3., 3., 1.}, {2., 3., 1.}, {
       2., 2., 2.}, {3., 2., 2.}, {3., 3., 2.}, {2., 3., 2.}}],
      Parallelepiped[{2., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 3., 0.}, {3., 3., 0.}, {3., 4., 0.}, {2., 4., 0.}, {
       2., 3., 1.}, {3., 3., 1.}, {3., 4., 1.}, {2., 4., 1.}}],
      Parallelepiped[{2., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 3., 1.}, {3., 3., 1.}, {3., 4., 1.}, {2., 4., 1.}, {
       2., 3., 2.}, {3., 3., 2.}, {3., 4., 2.}, {2., 4., 2.}}],
      Parallelepiped[{2., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 4., 0.}, {3., 4., 0.}, {3., 5., 0.}, {2., 5., 0.}, {
       2., 4., 1.}, {3., 4., 1.}, {3., 5., 1.}, {2., 5., 1.}}],
      Parallelepiped[{2., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 4., 1.}, {3., 4., 1.}, {3., 5., 1.}, {2., 5., 1.}, {
       2., 4., 2.}, {3., 4., 2.}, {3., 5., 2.}, {2., 5., 2.}}],
      Parallelepiped[{2., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 5., 0.}, {3., 5., 0.}, {3., 6., 0.}, {2., 6., 0.}, {
       2., 5., 1.}, {3., 5., 1.}, {3., 6., 1.}, {2., 6., 1.}}],
      Parallelepiped[{2., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 5., 1.}, {3., 5., 1.}, {3., 6., 1.}, {2., 6., 1.}, {
       2., 5., 2.}, {3., 5., 2.}, {3., 6., 2.}, {2., 6., 2.}}],
      Parallelepiped[{2., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 6., 0.}, {3., 6., 0.}, {3., 7., 0.}, {2., 7., 0.}, {
       2., 6., 1.}, {3., 6., 1.}, {3., 7., 1.}, {2., 7., 1.}}],
      Parallelepiped[{2., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{2., 6., 1.}, {3., 6., 1.}, {3., 7., 1.}, {2., 7., 1.}, {
       2., 6., 2.}, {3., 6., 2.}, {3., 7., 2.}, {2., 7., 2.}}],
      Parallelepiped[{2., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 0., 0.}, {4., 0., 0.}, {4., 1., 0.}, {3., 1., 0.}, {
       3., 0., 1.}, {4., 0., 1.}, {4., 1., 1.}, {3., 1., 1.}}],
      Parallelepiped[{3., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 0., 1.}, {4., 0., 1.}, {4., 1., 1.}, {3., 1., 1.}, {
       3., 0., 2.}, {4., 0., 2.}, {4., 1., 2.}, {3., 1., 2.}}],
      Parallelepiped[{3., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 1., 0.}, {4., 1., 0.}, {4., 2., 0.}, {3., 2., 0.}, {
       3., 1., 1.}, {4., 1., 1.}, {4., 2., 1.}, {3., 2., 1.}}],
      Parallelepiped[{3., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 1., 1.}, {4., 1., 1.}, {4., 2., 1.}, {3., 2., 1.}, {
       3., 1., 2.}, {4., 1., 2.}, {4., 2., 2.}, {3., 2., 2.}}],
      Parallelepiped[{3., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 2., 0.}, {4., 2., 0.}, {4., 3., 0.}, {3., 3., 0.}, {
       3., 2., 1.}, {4., 2., 1.}, {4., 3., 1.}, {3., 3., 1.}}],
      Parallelepiped[{3., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 2., 1.}, {4., 2., 1.}, {4., 3., 1.}, {3., 3., 1.}, {
       3., 2., 2.}, {4., 2., 2.}, {4., 3., 2.}, {3., 3., 2.}}],
      Parallelepiped[{3., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 3., 0.}, {4., 3., 0.}, {4., 4., 0.}, {3., 4., 0.}, {
       3., 3., 1.}, {4., 3., 1.}, {4., 4., 1.}, {3., 4., 1.}}],
      Parallelepiped[{3., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 3., 1.}, {4., 3., 1.}, {4., 4., 1.}, {3., 4., 1.}, {
       3., 3., 2.}, {4., 3., 2.}, {4., 4., 2.}, {3., 4., 2.}}],
      Parallelepiped[{3., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 4., 0.}, {4., 4., 0.}, {4., 5., 0.}, {3., 5., 0.}, {
       3., 4., 1.}, {4., 4., 1.}, {4., 5., 1.}, {3., 5., 1.}}],
      Parallelepiped[{3., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 4., 1.}, {4., 4., 1.}, {4., 5., 1.}, {3., 5., 1.}, {
       3., 4., 2.}, {4., 4., 2.}, {4., 5., 2.}, {3., 5., 2.}}],
      Parallelepiped[{3., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 5., 0.}, {4., 5., 0.}, {4., 6., 0.}, {3., 6., 0.}, {
       3., 5., 1.}, {4., 5., 1.}, {4., 6., 1.}, {3., 6., 1.}}],
      Parallelepiped[{3., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 5., 1.}, {4., 5., 1.}, {4., 6., 1.}, {3., 6., 1.}, {
       3., 5., 2.}, {4., 5., 2.}, {4., 6., 2.}, {3., 6., 2.}}],
      Parallelepiped[{3., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 6., 0.}, {4., 6., 0.}, {4., 7., 0.}, {3., 7., 0.}, {
       3., 6., 1.}, {4., 6., 1.}, {4., 7., 1.}, {3., 7., 1.}}],
      Parallelepiped[{3., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{3., 6., 1.}, {4., 6., 1.}, {4., 7., 1.}, {3., 7., 1.}, {
       3., 6., 2.}, {4., 6., 2.}, {4., 7., 2.}, {3., 7., 2.}}],
      Parallelepiped[{3., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 0., 0.}, {5., 0., 0.}, {5., 1., 0.}, {4., 1., 0.}, {
       4., 0., 1.}, {5., 0., 1.}, {5., 1., 1.}, {4., 1., 1.}}],
      Parallelepiped[{4., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 0., 1.}, {5., 0., 1.}, {5., 1., 1.}, {4., 1., 1.}, {
       4., 0., 2.}, {5., 0., 2.}, {5., 1., 2.}, {4., 1., 2.}}],
      Parallelepiped[{4., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 1., 0.}, {5., 1., 0.}, {5., 2., 0.}, {4., 2., 0.}, {
       4., 1., 1.}, {5., 1., 1.}, {5., 2., 1.}, {4., 2., 1.}}],
      Parallelepiped[{4., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 1., 1.}, {5., 1., 1.}, {5., 2., 1.}, {4., 2., 1.}, {
       4., 1., 2.}, {5., 1., 2.}, {5., 2., 2.}, {4., 2., 2.}}],
      Parallelepiped[{4., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 2., 0.}, {5., 2., 0.}, {5., 3., 0.}, {4., 3., 0.}, {
       4., 2., 1.}, {5., 2., 1.}, {5., 3., 1.}, {4., 3., 1.}}],
      Parallelepiped[{4., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 2., 1.}, {5., 2., 1.}, {5., 3., 1.}, {4., 3., 1.}, {
       4., 2., 2.}, {5., 2., 2.}, {5., 3., 2.}, {4., 3., 2.}}],
      Parallelepiped[{4., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 3., 0.}, {5., 3., 0.}, {5., 4., 0.}, {4., 4., 0.}, {
       4., 3., 1.}, {5., 3., 1.}, {5., 4., 1.}, {4., 4., 1.}}],
      Parallelepiped[{4., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 3., 1.}, {5., 3., 1.}, {5., 4., 1.}, {4., 4., 1.}, {
       4., 3., 2.}, {5., 3., 2.}, {5., 4., 2.}, {4., 4., 2.}}],
      Parallelepiped[{4., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 4., 0.}, {5., 4., 0.}, {5., 5., 0.}, {4., 5., 0.}, {
       4., 4., 1.}, {5., 4., 1.}, {5., 5., 1.}, {4., 5., 1.}}],
      Parallelepiped[{4., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 4., 1.}, {5., 4., 1.}, {5., 5., 1.}, {4., 5., 1.}, {
       4., 4., 2.}, {5., 4., 2.}, {5., 5., 2.}, {4., 5., 2.}}],
      Parallelepiped[{4., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 5., 0.}, {5., 5., 0.}, {5., 6., 0.}, {4., 6., 0.}, {
       4., 5., 1.}, {5., 5., 1.}, {5., 6., 1.}, {4., 6., 1.}}],
      Parallelepiped[{4., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 5., 1.}, {5., 5., 1.}, {5., 6., 1.}, {4., 6., 1.}, {
       4., 5., 2.}, {5., 5., 2.}, {5., 6., 2.}, {4., 6., 2.}}],
      Parallelepiped[{4., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 6., 0.}, {5., 6., 0.}, {5., 7., 0.}, {4., 7., 0.}, {
       4., 6., 1.}, {5., 6., 1.}, {5., 7., 1.}, {4., 7., 1.}}],
      Parallelepiped[{4., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{4., 6., 1.}, {5., 6., 1.}, {5., 7., 1.}, {4., 7., 1.}, {
       4., 6., 2.}, {5., 6., 2.}, {5., 7., 2.}, {4., 7., 2.}}],
      Parallelepiped[{4., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 0., 0.}, {6., 0., 0.}, {6., 1., 0.}, {5., 1., 0.}, {
       5., 0., 1.}, {6., 0., 1.}, {6., 1., 1.}, {5., 1., 1.}}],
      Parallelepiped[{5., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 0., 1.}, {6., 0., 1.}, {6., 1., 1.}, {5., 1., 1.}, {
       5., 0., 2.}, {6., 0., 2.}, {6., 1., 2.}, {5., 1., 2.}}],
      Parallelepiped[{5., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 1., 0.}, {6., 1., 0.}, {6., 2., 0.}, {5., 2., 0.}, {
       5., 1., 1.}, {6., 1., 1.}, {6., 2., 1.}, {5., 2., 1.}}],
      Parallelepiped[{5., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 1., 1.}, {6., 1., 1.}, {6., 2., 1.}, {5., 2., 1.}, {
       5., 1., 2.}, {6., 1., 2.}, {6., 2., 2.}, {5., 2., 2.}}],
      Parallelepiped[{5., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 2., 0.}, {6., 2., 0.}, {6., 3., 0.}, {5., 3., 0.}, {
       5., 2., 1.}, {6., 2., 1.}, {6., 3., 1.}, {5., 3., 1.}}],
      Parallelepiped[{5., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 2., 1.}, {6., 2., 1.}, {6., 3., 1.}, {5., 3., 1.}, {
       5., 2., 2.}, {6., 2., 2.}, {6., 3., 2.}, {5., 3., 2.}}],
      Parallelepiped[{5., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 3., 0.}, {6., 3., 0.}, {6., 4., 0.}, {5., 4., 0.}, {
       5., 3., 1.}, {6., 3., 1.}, {6., 4., 1.}, {5., 4., 1.}}],
      Parallelepiped[{5., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 3., 1.}, {6., 3., 1.}, {6., 4., 1.}, {5., 4., 1.}, {
       5., 3., 2.}, {6., 3., 2.}, {6., 4., 2.}, {5., 4., 2.}}],
      Parallelepiped[{5., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 4., 0.}, {6., 4., 0.}, {6., 5., 0.}, {5., 5., 0.}, {
       5., 4., 1.}, {6., 4., 1.}, {6., 5., 1.}, {5., 5., 1.}}],
      Parallelepiped[{5., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 4., 1.}, {6., 4., 1.}, {6., 5., 1.}, {5., 5., 1.}, {
       5., 4., 2.}, {6., 4., 2.}, {6., 5., 2.}, {5., 5., 2.}}],
      Parallelepiped[{5., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 5., 0.}, {6., 5., 0.}, {6., 6., 0.}, {5., 6., 0.}, {
       5., 5., 1.}, {6., 5., 1.}, {6., 6., 1.}, {5., 6., 1.}}],
      Parallelepiped[{5., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 5., 1.}, {6., 5., 1.}, {6., 6., 1.}, {5., 6., 1.}, {
       5., 5., 2.}, {6., 5., 2.}, {6., 6., 2.}, {5., 6., 2.}}],
      Parallelepiped[{5., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 6., 0.}, {6., 6., 0.}, {6., 7., 0.}, {5., 7., 0.}, {
       5., 6., 1.}, {6., 6., 1.}, {6., 7., 1.}, {5., 7., 1.}}],
      Parallelepiped[{5., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{5., 6., 1.}, {6., 6., 1.}, {6., 7., 1.}, {5., 7., 1.}, {
       5., 6., 2.}, {6., 6., 2.}, {6., 7., 2.}, {5., 7., 2.}}],
      Parallelepiped[{5., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 0., 0.}, {7., 0., 0.}, {7., 1., 0.}, {6., 1., 0.}, {
       6., 0., 1.}, {7., 0., 1.}, {7., 1., 1.}, {6., 1., 1.}}],
      Parallelepiped[{6., 0., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 0., 1.}, {7., 0., 1.}, {7., 1., 1.}, {6., 1., 1.}, {
       6., 0., 2.}, {7., 0., 2.}, {7., 1., 2.}, {6., 1., 2.}}],
      Parallelepiped[{6., 0., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 1., 0.}, {7., 1., 0.}, {7., 2., 0.}, {6., 2., 0.}, {
       6., 1., 1.}, {7., 1., 1.}, {7., 2., 1.}, {6., 2., 1.}}],
      Parallelepiped[{6., 1., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 1., 1.}, {7., 1., 1.}, {7., 2., 1.}, {6., 2., 1.}, {
       6., 1., 2.}, {7., 1., 2.}, {7., 2., 2.}, {6., 2., 2.}}],
      Parallelepiped[{6., 1., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 2., 0.}, {7., 2., 0.}, {7., 3., 0.}, {6., 3., 0.}, {
       6., 2., 1.}, {7., 2., 1.}, {7., 3., 1.}, {6., 3., 1.}}],
      Parallelepiped[{6., 2., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 2., 1.}, {7., 2., 1.}, {7., 3., 1.}, {6., 3., 1.}, {
       6., 2., 2.}, {7., 2., 2.}, {7., 3., 2.}, {6., 3., 2.}}],
      Parallelepiped[{6., 2., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 3., 0.}, {7., 3., 0.}, {7., 4., 0.}, {6., 4., 0.}, {
       6., 3., 1.}, {7., 3., 1.}, {7., 4., 1.}, {6., 4., 1.}}],
      Parallelepiped[{6., 3., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 3., 1.}, {7., 3., 1.}, {7., 4., 1.}, {6., 4., 1.}, {
       6., 3., 2.}, {7., 3., 2.}, {7., 4., 2.}, {6., 4., 2.}}],
      Parallelepiped[{6., 3., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 4., 0.}, {7., 4., 0.}, {7., 5., 0.}, {6., 5., 0.}, {
       6., 4., 1.}, {7., 4., 1.}, {7., 5., 1.}, {6., 5., 1.}}],
      Parallelepiped[{6., 4., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 4., 1.}, {7., 4., 1.}, {7., 5., 1.}, {6., 5., 1.}, {
       6., 4., 2.}, {7., 4., 2.}, {7., 5., 2.}, {6., 5., 2.}}],
      Parallelepiped[{6., 4., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 5., 0.}, {7., 5., 0.}, {7., 6., 0.}, {6., 6., 0.}, {
       6., 5., 1.}, {7., 5., 1.}, {7., 6., 1.}, {6., 6., 1.}}],
      Parallelepiped[{6., 5., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 5., 1.}, {7., 5., 1.}, {7., 6., 1.}, {6., 6., 1.}, {
       6., 5., 2.}, {7., 5., 2.}, {7., 6., 2.}, {6., 6., 2.}}],
      Parallelepiped[{6., 5., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}, 
   {RGBColor[1, 0, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 6., 0.}, {7., 6., 0.}, {7., 7., 0.}, {6., 7., 0.}, {
       6., 6., 1.}, {7., 6., 1.}, {7., 7., 1.}, {6., 7., 1.}}],
      Parallelepiped[{6., 6., 0.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{1., 0., 0.}, {0., 1., 0.}, {0., 0., 1.}}, {0., 0., 0.}}]}, 
   {RGBColor[0, 1, 0], GeometricTransformation3DBox[
     InterpretationBox[
      HexahedronBox[{{6., 6., 1.}, {7., 6., 1.}, {7., 7., 1.}, {6., 7., 1.}, {
       6., 6., 2.}, {7., 6., 2.}, {7., 7., 2.}, {6., 7., 2.}}],
      Parallelepiped[{6., 6., 1.}, {{1., 0., 0.}, {0., 1., 0.}, {0., 0., 
       1.}}]], {{{0.9659258262890683, -0.25881904510252074`, 0.}, {
      0.25881904510252074`, 0.9659258262890683, 0.}, {0., 0., 1.}}, {0., 0., 
      0.}}]}},
  Boxed->False]], "Output",
 CellChangeTimes->{{3.782122238018834*^9, 3.7821222461444273`*^9}, 
   3.782122341588757*^9},
 CellLabel->"Out[4]=",
 CellID->958385030,ExpressionUUID->"aa80f259-3a35-4e63-b687-4150ab008062"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "The next step is to assemble this structure. Here we want to use graphene \
in both layers, but we need to create it first for our ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"5696fb67-b758-4c9d-a815-7d0a83f8a97c"],
 " and expand it to one unit cell (which each block represents):"
}], "Text",
 CellChangeTimes->{{3.7821222809495783`*^9, 3.78212228586578*^9}, {
   3.782122352741158*^9, 3.7821223561479177`*^9}, {3.782122425197372*^9, 
   3.78212244862046*^9}, {3.7821224903372803`*^9, 3.782122509328559*^9}, {
   3.7821225943677807`*^9, 3.782122659881933*^9}, 3.782122693363861*^9},
 CellID->1814302641,ExpressionUUID->"22f58176-bcd7-449b-8d95-bf43c3f479bb"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"d5cad7ac-b0d2-4994-8b52-452e7e978e34"],
 " is normally used with ",
 StyleBox["cif", "InlineCode"],
 " files, but here it's just as simple to provide the details \
\[OpenCurlyDoubleQuote]manually\[CloseCurlyDoubleQuote]:"
}], "MathCaption",
 CellChangeTimes->{{3.7821227372332*^9, 3.782122764687379*^9}, {
  3.782122802977518*^9, 3.782122817588072*^9}, {3.782122850615754*^9, 
  3.782122872480842*^9}},
 CellID->963585550,ExpressionUUID->"d60c0f61-209f-49e8-9525-c3d33a9310e4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<Graphene\>\"", ",", "\"\<C\>\"", ",", "\"\<P-3m1\>\""}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
     "2.5", ",", "2.5", ",", "5.0", ",", "90", ",", "90", ",", "120"}], "}"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<Element\>\"", "\[Rule]", "\"\<C\>\""}], ",", 
       RowBox[{"\"\<FractionalCoordinates\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "3"}], ",", 
          RowBox[{"2", "/", "3"}], ",", 
          RowBox[{"1", "/", "2"}]}], "}"}]}]}], "|>"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ExpandCrystal", "[", 
  RowBox[{"\"\<Graphene\>\"", ",", 
   RowBox[{"\"\<NewLabel\>\"", "\[Rule]", "\"\<GrapheneCell\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{3.7821228269234858`*^9},
 CellLabel->"In[5]:=",
 CellID->808156823,ExpressionUUID->"5e50d61c-7495-4894-976b-e99fffb5c12e"],

Cell[BoxData["\<\"GrapheneCell\"\>"], "Output",
 CellChangeTimes->{3.782122830323163*^9},
 CellLabel->"Out[6]=",
 CellID->2101671753,ExpressionUUID->"d39b1ff4-224c-486c-8b87-a54be59d3905"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Finally, we synthesise the \[OpenCurlyDoubleQuote]domain structure\
\[CloseCurlyDoubleQuote]. We make use of the third parameter to replace all \
the domain identifiers (1's and 2's) with the label of the graphene unit \
cell. We use the same rotation options as above, and we see that the ",
 Cell[BoxData["\"\<RotationMap\>\""], "InlineFormula",
  FormatType->"StandardForm",ExpressionUUID->
  "31ca6b43-4728-4fe6-89b2-e0fdc8774218"],
 " still differentiates between the two domains."
}], "Text",
 CellChangeTimes->{{3.782122932184083*^9, 3.782122938785836*^9}, 
   3.7821232634787188`*^9},
 CellID->903815030,ExpressionUUID->"dd3f7e2f-b380-458b-a252-05034db928a3"],

Cell[CellGroupData[{

Cell[TextData[{
 "The realisation of our domain model to a crystal structure is done with ",
 Cell[BoxData[
  ButtonBox["SynthesiseStructure",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SynthesiseStructure"]], "InlineFormula",
  ExpressionUUID->"f89c8cd2-ba17-49a9-967f-1df287d6a57f"],
 ":"
}], "MathCaption",
 CellChangeTimes->{{3.782123113962801*^9, 3.782123149086307*^9}},
 CellID->1442163373,ExpressionUUID->"8ec9e9bf-5122-4736-8edf-defc94289b84"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SynthesiseStructure", "[", 
   RowBox[{"domain", ",", "\"\<GrapheneLayers\>\"", ",", 
    RowBox[{"(", 
     RowBox[{"_Integer", "\[Rule]", "\"\<GrapheneCell\>\""}], ")"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<RotationMap\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"15", "\[Degree]"}]}], "}"}]}], "|>"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<RotationAnchorReference\>\"", "\[Rule]", "\"\<Host\>\""}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CrystalPlot", "[", "\"\<GrapheneLayers\>\"", "]"}]}], "Input",
 CellLabel->"In[7]:=",
 CellID->1939369969,ExpressionUUID->"ab23cf39-e66a-4121-87f0-5e0ad38e91ec"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Arrow3DBox[Line3DBox[{{0, 0, 0}, {2.5, 0., 0.}}]]}, 
   {RGBColor[0, 1, 0], 
    Arrow3DBox[Line3DBox[{{0, 0, 0}, {-1.25, 2.1650635094610964`, 0.}}]]}, 
   {RGBColor[0, 0, 1], Arrow3DBox[Line3DBox[{{0, 0, 0}, {0., 0., 5.}}]]}, 
   {GrayLevel[0], 
    Line3DBox[{{-1.25, 2.1650635094610964`, 0.}, {1.25, 2.1650635094610964`, 
     0.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{2.5, 0., 0.}, {1.25, 2.1650635094610964`, 0.}}]}, 
   {GrayLevel[0], Line3DBox[{{2.5, 0., 0.}, {2.5, 0., 5.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{-1.25, 2.1650635094610964`, 0.}, {-1.25, 2.1650635094610964`, 
     5.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{1.25, 2.1650635094610964`, 0.}, {1.25, 2.1650635094610964`, 
     5.}}]}, 
   {GrayLevel[0], Line3DBox[{{0., 0., 5.}, {2.5, 0., 5.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{0., 0., 5.}, {-1.25, 2.1650635094610964`, 5.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{-1.25, 2.1650635094610964`, 5.}, {1.25, 2.1650635094610964`, 
     5.}}]}, 
   {GrayLevel[0], 
    Line3DBox[{{2.5, 0., 5.}, {1.25, 2.1650635094610964`, 5.}}]}, 
   {RGBColor[0.4, 0.4, 0.4], SphereBox[CompressedData["
1:eJx1lwlQU0cYgMMhtAgBJEgiGAgJEAkg4jFQrW9rBzoVr/EsVK0XjDLYDvXE
o2A9QR3rgRYRlSlFq1YFrUKl81bBs6hYbUFFp1IVWlGqxOJRSWn2332TfSQz
zg4/5Nvd/33//z91Mz4bm+KoUCiqO/85KaRPo2Du6a1uF8hPzoisZoHEm1g8
+m7UgD3NdWLMOJ/+u0f9A3Et2l/gmrpw/N9CCaw0brF+2sTbo0sn+951R7Z8
uq8ri4dMz3u4UOeAX0Tla8oS30aUQ/Ztgn1dWBy+hwnHj3HI3cxi00lfs3Kg
isXXPCx+eDPeE0ck39jgVu7DOI+H+F/O1Trj4emb87PjenB8Ja6r25TldzqQ
cRxh3wbrvQJYvG1g8jztDz3x7YAG9yGXejFOmPVe3nAvDYsTjgqTcxq4/Chx
87ySxo1VwSxe8mJ62+jzvfG51oxzg54EMc6v+sLU/f3V+Mbi2pqnUUEcX4Pv
rZxp3JJj5PgqyFsYix+4c7wCpwdj7bUFa0YvMjAOyVsg5E3P8bWQhwiOr8F3
ug9L3JZukvImlmfefB6CF5ZlJsxWGBln5/iJx7pF6PGqwfUj9O+FsTj9Hu+n
A8kP4v0kHipQCayUg+I3Z51d2h3hLCdL9eFXgi3fLPB+Em+dEO9nbBnuW5B9
TXDR+aXeXKxk/NPAFWAfWz71XPLzX1IXAu8n8bwdPO/JOEFHy7299laIY1Jq
BVWtiuObRd5PstZW8n5mmkN3lqndcKOv/7Gr03ozDs57x+F84xtRYawX4xv9
WZzUkbMdP80i7yepIxXUUTDjCLWHss/5euBJz1v3DF6i4/hKO346y/wstASP
rIz2x0Uj85Lyz4QwzpXwqVhV6IsP/9b2yXgnKU7rq2s/lTI/SZ3qoE77ME7W
4xSUcCQAu5a3B87dYOT5Mj+JP2qZn+tzhicprnujYxtXlxWu6MY4k6Z6PtyX
6odaSi0/56xyZHFnck7Udf9Uyfz8Ebi5sA/lkLrwgrrw4vi0viQ/O6zn90C8
n5N19Rf/mv9YiBsx9ma/B2rGoeeeAPew5ZsF3s8OqC/eT4M5ZVBRwCOxWZmc
NLM9kHGirXV3D+pOy+IK+NjxU+D9THP8buT6R874cvPR9EurpD62t3To7MXr
OudUhue81WeDWRw4Ytd+0rqW/HzwfkNo+1pvbLh0POIPD6mPkbp2xaSuQzm+
sx0/zSLvZ57L/RLjTjVefrC85fX2cMa50C+w1woXH5w7wK/tRJ3krROsXc73
bJ3Mz2HW/uUPfdKNcVw8TGtOrA1Cr75Zri4tdeX4Gjt+amV+bvkyx7J1jgp9
BSv9uymTRm0Y/EaDDm1LcHd71IPjq2R+OsC+vJ9VcG4B7kE5B4FL92H3sq5K
xPtJ6tdH5meNuelNleql8GJlTdbrBKmP0bzQPNE4/Z6d+Y54P/GR//v8Rejz
0vyNfbchelevNmHKk6iEq14Gjm8W7PRPxPtZGTTR8cIyi7gv4YYlIknqY14F
q3ePm9woHr8a49Kcz89fhcKOnwLvZ6V1jnhgMkdMjGNoOdq06JQjVpYOOqfQ
S3GSZ73MT2tfzQ6V+blE0TI2fkswqslYkdhy25Nx7qeN0mgmhyDX7a9n1TMP
4fydnvN+kr5tkPn5wdDakKQeWrR96YVvwxRSHyN9Wwd925c7f2+Zn3Rf3s+v
gRsP+1DOrDEbY65uDWCrLV8t89MBfs/7eQXyQvNEOSfg3LlwDxrvAM95P0nf
1sj8TG/JSMw56YCu32vtMdVf6mNKyPs9eA40/i/MEd5PwlfJ/JwW6/NxTH6D
YKpq+2VhsdTHyNx5A3PHyPHpHJH8fMu6KhHv5/4hyXMyg5+LK4vbt2yKjGSc
7DmbC0acKRM2R07MH/5pBIuT/Bvt+GmS+UnmeBjMQ6mPiRcyDi2NDkfdqyvr
Ld2kuWxdOj3v2s8+Mj8ty7qHbrqjR7vmu444tV3qY6lNc1tm7AtFFWuqP+qn
Vtvymee8n6EyP8l7QhC8J0h9TOmSFjFcq0dpH9bUzwgPtOV3et71+6dB5ude
OHcH3INy0oHrDvvQeAfUF++nI+zL+0nzPgGeA+VUQl5SIE+2fLUdP7UyP5fd
bd1x9L4L+l7wKcGt0vz1hOdaCc/Zlu8j85PWF+8nec95Cu85UYxT7phWuqvJ
CakOLEjfViF5S/yM7Hq+o2iZnzGVMZlugyNQ24Ghn/f2l/pYfmiecNe5L/L6
6fUXW3dJ/y8mz9ck85PM5SiZn7dvRVU8LTWi4rkJz0ZFSn2MvFeY4L2ily2f
ec77aZL5ufJl+Mt6Ywjqow6Lw3ukPvbnzI3ioWdhKLZotbD0d27+dnretZ99
ZH6agLsC9qEc8r5iYKtt/vUyP51gX97PIsjLLcgT5cTBuZvhHjb8LJ3MT5J/
g8xPMzzXfvCcKacK8i7Ac6BxWl+8n+T8Opmf62rn3q/zdke5hYPi9NV9GUcF
3uwAj2j8PxXf9mA=
     "], 0.67]}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesEdge->Automatic,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  BoxRatios->Automatic,
  BoxStyle->{},
  Boxed->False,
  ClipPlanes->None,
  ClipPlanesStyle->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  ControllerLinking->Automatic,
  ControllerMethod->Automatic,
  ControllerPath->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FaceGrids->None,
  FaceGridsStyle->{},
  FormatType->TraditionalForm,
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  LabelStyle->{},
  Lighting->"Neutral",
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotationAction->"Fit",
  SphericalRegion->True,
  Ticks->Automatic,
  TicksStyle->{},
  TouchscreenAutoZoom->False,
  ViewAngle->Automatic,
  ViewCenter->Automatic,
  ViewMatrix->Automatic,
  ViewPoint->Above,
  ViewProjection->Automatic,
  ViewRange->All,
  ViewVector->Automatic,
  ViewVertical->{0, 0, 1}]], "Output",
 CellChangeTimes->{3.782123034600281*^9},
 CellLabel->"Out[8]=",
 CellID->604767047,ExpressionUUID->"83dafeb2-8059-4cb6-a2db-5c635aaa40d6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The common auxiliary function", "Section",
 CellChangeTimes->{{3.782113381829307*^9, 3.7821133875288267`*^9}},
 CellID->2139507492,ExpressionUUID->"fdcc960a-5181-48c4-b1cc-48853aca802b"],

Cell[TextData[{
 "The functions that currently use the rotation options framework all rely \
internally on the ",
 Cell[BoxData[
 "\"\<RotationTransformation\>\""], "InlineFormula",ExpressionUUID->
  "dd7e8ce7-b22a-4d7e-b3be-f78d73c193ad"],
 " module of ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"19f5695f-416d-4ca0-9399-7ce30e5c8eca"],
 ". This procedure returns a ",
 Cell[BoxData[
  ButtonBox["TransformationFunction",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/TransformationFunction"]], "InlineFormula",
  ExpressionUUID->"0827bc59-0754-4a90-bd4c-b981f32c3410"],
 " that in turn requires one or two parameters, depending on the dimensions \
and anchor reference type of input."
}], "Text",
 CellChangeTimes->{{3.782120719073626*^9, 3.782120719588941*^9}, {
  3.782466406151263*^9, 3.782466408909663*^9}, {3.782467342739036*^9, 
  3.7824673448988037`*^9}, {3.782467406302916*^9, 3.782467439465489*^9}, {
  3.7824686470079937`*^9, 3.782468826056712*^9}},
 CellID->245700726,ExpressionUUID->"924294dd-a24c-418e-aad8-e4418f38f87c"],

Cell[TextData[{
 "In this first example we create a two-dimensional domain to be used in the ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"69c8e98a-c93f-46d7-a7a9-54118ca39c95"],
 " function. It uses ",
 Cell[BoxData[
 "\"\<Domain\>\""], "InlineFormula",ExpressionUUID->
  "1876e9ed-6ac3-4183-a776-0db8e091905f"],
 " anchor reference, so only the domain identifier is required at later input."
}], "Text",
 CellChangeTimes->{{3.7824689689910173`*^9, 3.78246900728056*^9}, {
  3.782469503875182*^9, 3.782469569305456*^9}},
 CellID->362732183,ExpressionUUID->"d178c2ae-1687-42a7-b70b-1d49756c5ca6"],

Cell[CellGroupData[{

Cell["Constructing a two-dimensional domain:", "MathCaption",
 CellChangeTimes->{{3.782469576217256*^9, 3.782469583127399*^9}},
 CellID->1438855967,ExpressionUUID->"12f4fd6d-c779-42b3-b425-6ef90746bac1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"domain1", "=", 
  RowBox[{"ConstructDomains", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"7", ",", "7", ",", "1"}], "}"}], ",", "3", ",", "25"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.782109872025247*^9, 3.782109907465268*^9}, 
   3.782110042824525*^9},
 CellLabel->"In[1]:=",
 CellID->685727073,ExpressionUUID->"244fe31e-c7a7-4b6d-818b-3d37a2cc3182"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"7", ",", "7", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2",
      ",", "1", ",", "1", ",", "3", ",", "3", ",", "1", ",", "3", ",", "2", 
     ",", "2", ",", "3", ",", "1", ",", "3", ",", "3", ",", "1", ",", "3", 
     ",", "1", ",", "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "3", 
     ",", "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "3", ",", "3", 
     ",", "3", ",", "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "3", 
     ",", "3", ",", "2", ",", "2", ",", "1", ",", "3", ",", "3"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.782109907743828*^9, 3.782109915644936*^9}, {
   3.7821100436297197`*^9, 3.782110055323806*^9}, 3.7824690483547297`*^9},
 CellLabel->"Out[1]=",
 CellID->24673899,ExpressionUUID->"b3f8279f-e057-475b-a45a-c0655200f0ba"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Obtaining the transformation function where we want to rotate all cells of \
domain 3 around the \[OpenCurlyDoubleQuote]domain corner\
\[CloseCurlyDoubleQuote] by 23.5\[Degree]:\
\>", "MathCaption",
 CellChangeTimes->{{3.78246979434809*^9, 3.782469894824378*^9}},
 CellID->853282563,ExpressionUUID->"cf18c29e-fc73-4e4c-afe9-0e4340d98fbe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"R1", "=", 
   RowBox[{"InputCheck", "[", 
    RowBox[{"\"\<RotationTransformation\>\"", ",", "domain1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\"\<Domain\>\"", ",", 
       
       RowBox[{"<|", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"23.5", "\[Degree]"}]}], "|>"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.782109857606408*^9, 3.782109866230871*^9}, {
   3.782109937611701*^9, 3.7821099830944633`*^9}, {3.78211002743747*^9, 
   3.7821100486520147`*^9}, 3.782469027894507*^9},
 CellLabel->"In[2]:=",
 CellID->324919468,ExpressionUUID->"3757760f-905e-4ce2-9f16-140f141cd643"],

Cell[BoxData["MaXrd`Private`R$6358"], "Output",
 CellChangeTimes->{
  3.7821099833738213`*^9, {3.782110028968766*^9, 3.782110066054872*^9}, 
   3.7824690495083227`*^9},
 CellLabel->"Out[2]=",
 CellID->866944964,ExpressionUUID->"fdddd824-e817-410d-8e04-ae94231a6078"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
To get the appropriate transformation function, we only need to specify the \
domain identifier:\
\>", "MathCaption",
 CellChangeTimes->{{3.782470144852137*^9, 3.782470174529866*^9}},
 CellID->1423975162,ExpressionUUID->"54a7738e-3a94-4adc-b8b2-596daed62a45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R1", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.7821099849871807`*^9, 3.7821100321363583`*^9}, 
   3.782110155710752*^9},
 CellLabel->"In[3]:=",
 CellID->2128016662,ExpressionUUID->"610f1464-5007-48c0-a045-7be214f2dfae"],

Cell[BoxData[
 RowBox[{"TransformationFunction", "[", 
  RowBox[{"(", 
   TagBox[GridBox[{
      {"0.917060074385124`", 
       RowBox[{"-", "0.3987490689252462`"}], "1.2791871323906145`"},
      {"0.3987490689252462`", "0.917060074385124`", 
       RowBox[{"-", "0.14992929208061856`"}]},
      {"0", "0", "1.`"}
     },
     AutoDelete->False,
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {-2 -> True}, 
       "Rows" -> {{False}}, "RowsIndexed" -> {-2 -> True}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    #& ], ")"}], "]"}]], "Output",
 CellChangeTimes->{{3.782109989687169*^9, 3.7821100323584213`*^9}, 
   3.78211006721521*^9, 3.782110156163612*^9, 3.782469050873189*^9},
 CellLabel->"Out[3]=",
 CellID->1822314856,ExpressionUUID->"3b6e8138-cd14-43c6-a086-b86244e681b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
In this second example we use a three-dimensional structure instead and \
choose to rotate about each block as well. Thus, we specify both the domain \
and the point in order to get the transformation function back:\
\>", "Text",
 CellChangeTimes->{{3.782470184339542*^9, 3.7824702745754004`*^9}, {
  3.7824706204173613`*^9, 3.782470630766797*^9}, {3.7824708168844767`*^9, 
  3.7824708227222958`*^9}, {3.782470886313651*^9, 3.782470913856283*^9}},
 CellID->1592908899,ExpressionUUID->"5a890b91-6653-45e6-ac59-9396b5afa226"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain2", "=", 
   RowBox[{"ConstructDomains", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"7", ",", "7", ",", "7"}], "}"}], ",", "3", ",", "250"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R2", "=", 
   RowBox[{"InputCheck", "[", 
    RowBox[{"\"\<RotationTransformation\>\"", ",", "domain2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\"\<Unit\>\"", ",", 
       RowBox[{"<|", 
        RowBox[{"1", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"45", "\[Degree]"}]}], "}"}]}], "|>"}]}], "}"}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"R2", "[", 
  RowBox[{"1", ",", 
   RowBox[{"{", 
    RowBox[{"2.5", ",", "3.5", ",", "0.5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7821100742335997`*^9, 3.7821101389680634`*^9}, 
   3.7824690295346737`*^9, {3.782470406742783*^9, 3.782470428748238*^9}},
 CellLabel->"In[4]:=",
 CellID->1159887342,ExpressionUUID->"ea2caa2d-4846-44dd-b69b-be3aa29293fa"],

Cell[BoxData[
 RowBox[{"TransformationFunction", "[", 
  RowBox[{"(", 
   TagBox[GridBox[{
      {"0.7071067811865476`", 
       RowBox[{"-", "0.7071067811865475`"}], "0", "3.207106781186547`"},
      {"0.7071067811865475`", "0.7071067811865476`", "0", 
       RowBox[{"-", "0.7426406871192848`"}]},
      {"0", "0", "1.`", "0"},
      {"0", "0", "0", "1.`"}
     },
     AutoDelete->False,
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {-2 -> True}, 
       "Rows" -> {{False}}, "RowsIndexed" -> {-2 -> True}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
    #& ], ")"}], "]"}]], "Output",
 CellChangeTimes->{{3.782110130960862*^9, 3.782110142553462*^9}, {
   3.782470400115842*^9, 3.7824704294958553`*^9}, 3.782470462505975*^9},
 CellLabel->"Out[6]=",
 CellID->1561032512,ExpressionUUID->"c9f2245e-a6c7-49e0-82e1-7886eaad3fd0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"0f6d8e02-7bbf-43ca-9929-d4d75e3a86a8"],

Cell["XXXX", "TutorialMoreAbout",
 CellID->1567025153,ExpressionUUID->"52154191-77cb-4d15-a8bd-a1beb278d29f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"41d28d59-9257-4b8f-bbef-fb947cdb12d3"],

Cell["XXXX", "RelatedTutorials",
 CellID->806871991,ExpressionUUID->"606f8169-b7ad-46ef-856c-90a95f8995c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Education Group Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"37104e33-a8ad-4481-8df7-91168bf55836"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"d044ba83-2bba-4e9c-86f2-0b2262266b2b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{720, 799},
WindowMargins->{{104, Automatic}, {Automatic, 146}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 670, 15, 24, "History",ExpressionUUID->"5383a4e6-71c5-4957-86b8-46b9e358b2ed",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1253, 39, 123, 1, 29, "CategorizationSection",ExpressionUUID->"f74d96db-faf1-4f3e-bc30-2f55193b792b",
 CellID->1122911449],
Cell[1379, 42, 136, 2, 70, "Categorization",ExpressionUUID->"af2c6c1f-bf75-4401-838c-54647851275e",
 CellID->686433507],
Cell[1518, 46, 133, 2, 70, "Categorization",ExpressionUUID->"37568129-e0c0-4c60-8a99-605b150a775d",
 CellID->605800465],
Cell[1654, 50, 130, 2, 70, "Categorization",ExpressionUUID->"754132cc-cd4a-47f0-9861-91443931a64c",
 CellID->468444828],
Cell[1787, 54, 132, 1, 70, "Categorization",ExpressionUUID->"fcb47fbb-27fc-4605-818e-36c8b099bd8d"]
}, Closed]],
Cell[CellGroupData[{
Cell[1956, 60, 111, 1, 19, "KeywordsSection",ExpressionUUID->"66a4fee1-0899-49a6-a2c6-9c436423fa9c",
 CellID->1427428552],
Cell[2070, 63, 100, 1, 70, "Keywords",ExpressionUUID->"7761f498-597d-4525-9285-25e0b148519a",
 CellID->1251852827]
}, Closed]],
Cell[CellGroupData[{
Cell[2207, 69, 108, 1, 19, "DetailsSection",ExpressionUUID->"6ee577f2-1a25-4dae-bfe9-fd6d3a0bfe58",
 CellID->307771771],
Cell[2318, 72, 118, 2, 70, "Details",ExpressionUUID->"c1b6e11b-1407-4e93-9b90-dcb57f713166",
 CellID->218895918],
Cell[2439, 76, 124, 2, 70, "Details",ExpressionUUID->"62096907-5471-4854-be4d-d064224bc1c7",
 CellID->350963985],
Cell[2566, 80, 121, 2, 70, "Details",ExpressionUUID->"e4afcd12-e5b7-4f94-b87c-0a26ca2f81e5",
 CellID->795871300],
Cell[2690, 84, 126, 2, 70, "Details",ExpressionUUID->"4d2d193d-cbfb-4ba1-bf70-617588486a8c",
 CellID->199739161],
Cell[2819, 88, 115, 2, 70, "Details",ExpressionUUID->"be54ec02-8f13-462d-bccc-97e60fd59632",
 CellID->40625308],
Cell[2937, 92, 116, 2, 70, "Details",ExpressionUUID->"4393361b-52fb-493f-ae26-e402f152754f",
 CellID->357121918],
Cell[3056, 96, 117, 2, 70, "Details",ExpressionUUID->"2b727e0f-4e3a-4801-b6a2-01aef473abde",
 CellID->35949532],
Cell[3176, 100, 133, 2, 70, "Details",ExpressionUUID->"0cbbfe3d-df07-4a3b-9589-533c097be105",
 CellID->929432370],
Cell[3312, 104, 122, 2, 70, "Details",ExpressionUUID->"59fcd399-676c-47a5-b593-99efc33f7830",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3471, 111, 183, 2, 106, "Title",ExpressionUUID->"e6e539db-4569-44b4-8920-d41afb3bc5ac",
 CellID->509267359],
Cell[3657, 115, 641, 10, 57, "Text",ExpressionUUID->"617ed5b5-3742-4cfb-92d6-1cf0ea933092",
 CellID->1534169418],
Cell[4301, 127, 1180, 19, 109, "DefinitionBox",ExpressionUUID->"c8799249-885b-410f-b0fe-b7dadb61d5a0",
 CellID->2096742444],
Cell[5484, 148, 243, 4, 29, "Caption",ExpressionUUID->"b4e75551-e932-4317-8d64-d296c7651fb2",
 CellID->1891092685],
Cell[5730, 154, 378, 6, 23, "Text",ExpressionUUID->"23c2c47f-a4c9-4588-9a07-f5b344712787",
 CellID->1988357493],
Cell[6111, 162, 858, 15, 87, "DefinitionBox",ExpressionUUID->"adc977de-239c-4d62-b3bd-310723c58024",
 CellID->827962455],
Cell[6972, 179, 314, 4, 29, "Caption",ExpressionUUID->"4b5af968-7994-403d-bd2c-67534404043e",
 CellID->2018432272],
Cell[CellGroupData[{
Cell[7311, 187, 203, 2, 40, "MathCaption",ExpressionUUID->"2cb5d8db-1328-410e-880e-721c2cc0ae3f",
 CellID->836781195],
Cell[7517, 191, 215, 4, 26, "Input",ExpressionUUID->"b3748436-ac16-4293-96f6-7af198b83188",
 CellID->2058623809]
}, Open  ]],
Cell[CellGroupData[{
Cell[7769, 200, 172, 2, 43, "Section",ExpressionUUID->"99644d9a-e694-40eb-bb70-6e4e64281ef3",
 CellID->1783646765],
Cell[7944, 204, 594, 13, 41, "Text",ExpressionUUID->"d877cfca-78d0-48b5-968c-03e6e9a8c93f",
 CellID->133240190],
Cell[8541, 219, 772, 15, 109, "DefinitionBox",ExpressionUUID->"350ed14e-78bf-4e9a-916f-075a5e7e33d8",
 CellID->752541106],
Cell[9316, 236, 399, 8, 30, "Caption",ExpressionUUID->"8c66ce20-c6f2-4782-a204-7682aae64da0",
 CellID->1427171359],
Cell[9718, 246, 618, 13, 25, "Text",ExpressionUUID->"c6ab487c-4d7a-4ccb-9a7c-bca3dee49049",
 CellID->1051416660],
Cell[CellGroupData[{
Cell[10361, 263, 225, 3, 40, "MathCaption",ExpressionUUID->"916edf03-e1e9-4ca8-816f-24e4df0589a0",
 CellID->1002407248],
Cell[CellGroupData[{
Cell[10611, 270, 1001, 20, 81, "Input",ExpressionUUID->"e8fe267c-c915-48a6-8c65-b307aebf9cf2",
 CellID->449406421],
Cell[11615, 292, 7953, 154, 190, "Output",ExpressionUUID->"735487c4-6330-47aa-b7fa-bc1bf2eb2546",
 CellID->2013447779]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19617, 452, 435, 7, 56, "MathCaption",ExpressionUUID->"f61a0bc9-1c47-478c-a7ac-139757670e1c",
 CellID->1158761453],
Cell[20055, 461, 2549, 68, 136, "Input",ExpressionUUID->"a18b5e72-9af2-4c7e-8e3c-3e08d61168e1",
 CellID->766536665]
}, Open  ]],
Cell[22619, 532, 480, 8, 40, "Text",ExpressionUUID->"bc4781be-3e7a-4bcf-b131-261e4ba15cd0",
 CellID->1425365031],
Cell[CellGroupData[{
Cell[23124, 544, 689, 12, 73, "MathCaption",ExpressionUUID->"da79b556-37fd-4b73-bb7e-13af7e88fb74",
 CellID->506884064],
Cell[23816, 558, 2466, 60, 214, "Input",ExpressionUUID->"d0f60e39-3be5-4558-ba9d-33d3918a0296",
 CellID->999724886]
}, Open  ]],
Cell[26297, 621, 632, 11, 41, "Text",ExpressionUUID->"e86ad972-8375-4955-99e1-cd554265706e",
 CellID->1271064411],
Cell[CellGroupData[{
Cell[26954, 636, 186, 2, 39, "Subsection",ExpressionUUID->"84b4807c-b3f7-4eda-a3ea-e1e610806ae3",
 CellID->314884389],
Cell[27143, 640, 601, 9, 57, "Text",ExpressionUUID->"277e4148-ad28-485b-ae3e-b9441c7dbe6c",
 CellID->45493021],
Cell[CellGroupData[{
Cell[27769, 653, 234, 3, 40, "MathCaption",ExpressionUUID->"babd1f14-a83d-487e-b708-efc4abbfd338",
 CellID->545123292],
Cell[CellGroupData[{
Cell[28028, 660, 770, 21, 83, "Input",ExpressionUUID->"352f13a4-5854-4cd7-af2e-3f49cbab8157",
 CellID->721930542],
Cell[28801, 683, 27412, 595, 146, "Output",ExpressionUUID->"01c2d2ae-4483-4726-8848-b3646ea7722b",
 CellID->1193804758]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56262, 1284, 247, 5, 56, "MathCaption",ExpressionUUID->"63fc1d72-cd11-4f42-a5af-ed83faad323b",
 CellID->918111546],
Cell[CellGroupData[{
Cell[56534, 1293, 529, 13, 69, "Input",ExpressionUUID->"7decac2a-dec0-4e4e-ba11-205171a5630b",
 CellID->1130242268],
Cell[57066, 1308, 40789, 693, 140, "Output",ExpressionUUID->"aa80f259-3a35-4e63-b687-4150ab008062",
 CellID->958385030]
}, Open  ]]
}, Open  ]],
Cell[97882, 2005, 786, 14, 42, "Text",ExpressionUUID->"22f58176-bcd7-449b-8d95-bf43c3f479bb",
 CellID->1814302641],
Cell[CellGroupData[{
Cell[98693, 2023, 654, 14, 58, "MathCaption",ExpressionUUID->"d60c0f61-209f-49e8-9525-c3d33a9310e4",
 CellID->963585550],
Cell[CellGroupData[{
Cell[99372, 2041, 1084, 28, 107, "Input",ExpressionUUID->"5e50d61c-7495-4894-976b-e99fffb5c12e",
 CellID->808156823],
Cell[100459, 2071, 188, 3, 26, "Output",ExpressionUUID->"d39b1ff4-224c-486c-8b87-a54be59d3905",
 CellID->2101671753]
}, Open  ]]
}, Open  ]],
Cell[100674, 2078, 685, 12, 59, "Text",ExpressionUUID->"dd3f7e2f-b380-458b-a252-05034db928a3",
 CellID->903815030],
Cell[CellGroupData[{
Cell[101384, 2094, 463, 10, 58, "MathCaption",ExpressionUUID->"8ec9e9bf-5122-4736-8edf-defc94289b84",
 CellID->1442163373],
Cell[CellGroupData[{
Cell[101872, 2108, 806, 18, 107, "Input",ExpressionUUID->"ab23cf39-e66a-4121-87f0-5e0ad38e91ec",
 CellID->1939369969],
Cell[102681, 2128, 5088, 124, 370, "Output",ExpressionUUID->"83dafeb2-8059-4cb6-a2db-5c635aaa40d6",
 CellID->604767047]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107842, 2260, 192, 2, 43, "Section",ExpressionUUID->"fdcc960a-5181-48c4-b1cc-48853aca802b",
 CellID->2139507492],
Cell[108037, 2264, 1145, 25, 78, "Text",ExpressionUUID->"924294dd-a24c-418e-aad8-e4418f38f87c",
 CellID->245700726],
Cell[109185, 2291, 700, 15, 43, "Text",ExpressionUUID->"d178c2ae-1687-42a7-b70b-1d49756c5ca6",
 CellID->362732183],
Cell[CellGroupData[{
Cell[109910, 2310, 203, 2, 40, "MathCaption",ExpressionUUID->"12f4fd6d-c779-42b3-b425-6ef90746bac1",
 CellID->1438855967],
Cell[CellGroupData[{
Cell[110138, 2316, 388, 10, 26, "Input",ExpressionUUID->"244fe31e-c7a7-4b6d-818b-3d37a2cc3182",
 CellID->685727073],
Cell[110529, 2328, 934, 18, 44, "Output",ExpressionUUID->"b3f8279f-e057-475b-a45a-c0655200f0ba",
 CellID->24673899]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[111512, 2352, 348, 6, 56, "MathCaption",ExpressionUUID->"cf18c29e-fc73-4e4c-afe9-0e4340d98fbe",
 CellID->853282563],
Cell[CellGroupData[{
Cell[111885, 2362, 738, 18, 69, "Input",ExpressionUUID->"3757760f-905e-4ce2-9f16-140f141cd643",
 CellID->324919468],
Cell[112626, 2382, 266, 5, 25, "Output",ExpressionUUID->"fdddd824-e817-410d-8e04-ae94231a6078",
 CellID->866944964]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[112941, 2393, 269, 5, 56, "MathCaption",ExpressionUUID->"54a7738e-3a94-4adc-b8b2-596daed62a45",
 CellID->1423975162],
Cell[CellGroupData[{
Cell[113235, 2402, 250, 5, 26, "Input",ExpressionUUID->"610f1464-5007-48c0-a045-7be214f2dfae",
 CellID->2128016662],
Cell[113488, 2409, 843, 19, 60, "Output",ExpressionUUID->"3b6e8138-cd14-43c6-a086-b86244e681b8",
 CellID->1822314856]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[114380, 2434, 533, 8, 57, "Text",ExpressionUUID->"5a890b91-6653-45e6-ac59-9396b5afa226",
 CellID->1592908899],
Cell[CellGroupData[{
Cell[114938, 2446, 1104, 29, 88, "Input",ExpressionUUID->"ea2caa2d-4846-44dd-b69b-be3aa29293fa",
 CellID->1159887342],
Cell[116045, 2477, 891, 20, 76, "Output",ExpressionUUID->"c9f2245e-a6c7-49e0-82e1-7886eaad3fd0",
 CellID->1561032512]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116997, 2504, 120, 1, 72, "TutorialMoreAboutSection",ExpressionUUID->"0f6d8e02-7bbf-43ca-9929-d4d75e3a86a8",
 CellID->23220180],
Cell[117120, 2507, 109, 1, 22, "TutorialMoreAbout",ExpressionUUID->"52154191-77cb-4d15-a8bd-a1beb278d29f",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[117266, 2513, 127, 1, 72, "RelatedTutorialsSection",ExpressionUUID->"41d28d59-9257-4b8f-bbef-fb947cdb12d3",
 CellID->415694126],
Cell[117396, 2516, 107, 1, 22, "RelatedTutorials",ExpressionUUID->"606f8169-b7ad-46ef-856c-90a95f8995c2",
 CellID->806871991]
}, Open  ]],
Cell[CellGroupData[{
Cell[117540, 2522, 153, 1, 72, "TutorialRelatedLinksSection",ExpressionUUID->"37104e33-a8ad-4481-8df7-91168bf55836",
 CellID->415694148],
Cell[117696, 2525, 111, 1, 22, "TutorialRelatedLinks",ExpressionUUID->"d044ba83-2bba-4e9c-86f2-0b2262266b2b",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

